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EDITORIAL 


Fidèle à sa politique, notre société vous 
présente un nouveau mensuel spécialisé et 
uniquement accessible aux utilisateurs du 
micro-ordinateur AMSTRAD. 

Une revue, ce n'est pas seulement fournir 
des idées et des programmes, c’est aussi 
se mettre à la disposition des lecteurs. 
Alors, si vous rencontrez des problèmes, 
si vous souhaitez des programmes, n’hé- 
sitez pas à nous écrire. Comme avec notre 
mensuel THEORIC, nous ferons le maxi- 
mum pour vous donner satisfaction. 
Vous avez des trucs, des astuces, des pro- 
grammes, n'hésitez pas à prendre contact 
avec nous. Vos articles seront rémunérés. 
Votre avis sur ce premier numéro nous 
sera également très utile. 


S. FAUREZ 
Directeur de Publication 


AMSTRAD 
TYRANN 


un tandem d'enfer 


Jeu de rôles en français, 
des milliers de possesseurs 
d'Atmos l'ont apprécié. 
Disponible maintenant 
pour votre C.P.C. 

185 F 


AQUAD 


‘arcade aquatique. 
100% langage machine : 
excellent graphisme 

110F 


PLAYBOX 


A vous de jouer : 
AWARI, POKER, POKERPATIENCE, 
MORPION, JACKPOT, 
MASTERMIND, HOLD:-UP réunis 
pour vous dans PLAYBOX 

100 F 


Ces logiciels sont disponibles chez votre 
revendeur habituel. 
Distribués par INNELEC : 840.24:31 


et VISMO : 338.60.00 31.86.56.69 
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CL : câble 


RACK 


de liaison 


entre l'AMSTRAD et le 


ERAOUE 


ERASME vous permet aujourd'hui de décupler la puissance de votre AMSTRAD CPC 464, en lui fournissant toutes les 
cartes d'extensions dont il a besoin ! chacune d'elles peut fonctionner SEULE avec le câble de liaison CL1, ou dans un Rack- 
fond de panier proposé avec où sans alimentation supplémentaire. Cette dernière version confère à votre ordinateur une qua- 
lité PROFESSIONNELLE. 


: des périphériques pour AMSTRAD 


ERASME 100 : Rack et fond 
de panier bufférisé pour 4 
cartes d'extensions 


ERASME 101 : carte de 
conversion analogique di- 
gitale 8 voies multiplexées 


590 F 


590 F 


ERASME 102 : carte 24 
entrées-sorties (8255) 
programmables et TI- 
MER 16 bits (8253) 


590 F 


ERASME 104 : RS 232 C 
aux normes V 24 


ERASME 103 : carte de 
conversion  digitale-analo- 


gique 2 voies 590 F 


triacs pour 


Réf 

CL1 

ERASME 100 
ERASME 101 
ERASME 102 
ERASME 103 
ERASME 104 
ERASME 105 
ERASME 106 
ERASME 107 
ERASME 108 
ERASME 109 
ERASME 110 
Participation 
frais de port 


ERASME 108 : Alimenta- 
tion triple tensions à in- 
troduire dans le RACK 


ERASME 105 : carte 
disposant de 4 photo- 


la com- 


mande d'appareils 220 V 
et de 4 sorties logiques 


590 F 


ERASME 106 : associée à ERASME 107 programma- 
l'extension ERASME 102, teur d'EPROM 27116-27128 
elle permet la commande (de 2 K-octets à 16 K- 
de 4 appareils 220 V. 450 F | octets) 990 F 


Prix TTC Quantité 
150 F 
590 F 
590 F 
590 F 


30 F 


Total de la commande 
Dans la limite des stocks disponibles 


490 F 


Je désire recevoir le catalogue général [] contre 3 timbres à 2,10 F 


Total 


ERASME 109 : RAM 64 K- ERASME 110 : carte d'ex- 
octets pour les program- tension EPROM 2716 à 
mes importants NC | 27128 en 4 supports, soient 
64 K-octets maximum NC 
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Tél. : 


Signature (des parents pour les mineurs) : 


Ci-joint la somme de F TTC par chèque bancaire C] 
par CCP [_] ou par mandat C1 à l'ordre de : 


ERASME, 17, rue des Alliés - 42100 St-Etienne - Tél. (77) 33.13.82 
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ECRIVEZ-NOUS 


A l'heure où vous lirez ces lignes, 
vous serez presque 100 000 uti- 
lisateurs des micro-ordinateurs 
AMSTRAD. CPC est votre maga- 
zine mensuel, le lien qui vous 
unira. Nous avons essayé, dès ce 
premier numéro, de faire en sorte 
que les articles qui nous sont pro- 
posés soient variés et apportent 
quelque chose de concret tant au 
débutant qu'à l'utilisateur che- 
vronné. Mais afin de satisfaire au 
mieux votre soif d'information, 
nous avons besoin de vos sug- 
gestions et de vos critiques. Nous 


sommes prêts à aborder tous les 
sujets qui concernent les ordina- 
teurs AMSTRAD et tout leur 
environnement. Faites-nous 
savoir si vous trouvez le niveau 
de CPC trop simple ou trop ardu, 
parlez-nous de vos problèmes 
avec les distributeurs, et nous 
essaierons de vous aider à les 
résoudre. Vous souhaitez établir 
des contacts avec d’autres lec- 
teurs, utilisez les petites annon- 
ces. Enfin, si vous avez l'esprit 
AMSTRAD, nous l'avons aussi. 
Nous sommes donc faits pour 
nous entendre. 

Nous sommes à votre écoute... 


LOGICYS 


première en Europe à présenter 


ACCÈS DIRECT 


sur AMSTRAD CPC 464 & 664 


sous le nom de 
UDOS 


Pour travailler sur des fichiers INDEXES et intégrer 
l'ACCES DIRECT à tous vos programmes sur 


disquette. 


Des UTILITAIRES de travail sont associés à ce mini 


operating system. 


____ BONDECOMMANDE _ 
ATTENTION : VERSION UDOS 1 - 3 
D JE DÉSIRE RECEVOIR UDOS 1.3 AU PRIX UNITAIRE DE 380,00 F TTC 
Total ss + 10F de port 


JE JOINS UN CHÈQUE DE 


JE POSSÈDE DÉJA UDOS EN VERSION 1.2 


Je vous retourne ma disquette pour avoir : 
UNE MISE A NIVEAU (version 1.3) 
COMMENT SAUVEGARDER UDOS 
DES COMMANDES SUPPLÉMENTAIRES 
JE JOINS UN CHÈQUE DE 95 F ET MA DISQUETTE 1.2 


NOM : 
CODE POSTAL : 


Diane des ie en ADRESSE : 


À RETOURNER A LOGICYS, DOMAINE DE FAYSEAU, 33270 BOULIAC, 
TÉL.56.20.92.57 


APPEL AUX LECTEURS 


CPC est la revue des utilisateurs 
d'AMSTRAD. Ô combien de 
nuits blanches et de mètres de 
papier d'imprimante ont défilé 
avant que votre splendide utili- 
taire ou votre jeu d'arcades ne 
fonctionne. Pourquoi rester dans 
l'ombre ? Faire connaître son tra- 
vail et son nom aux autres pas- 
sionnés sont déjà une belle 
récompense ; quand, de plus, ce 
travail peut être rénuméré, pour- 
quoi hésiter ? 

Vous qui avez réalisé une carte 
d'extension ou un logiciel dont 
vous êtes fier, contactez sans 
plus attendre la rédaction de 
CPC : nous vous expliquerons 
comment être publié. Tiens ? Le 
téléphone sonne déjà ! 


PETITES ANNONCES 


Du matériel à vendre, des 
contacts à prendre, des logiciels 
à échanger ? Une seule adresse : 
les petites annonces de CPC. 
Pour une somme modique (3 tim- 
bres à 2,10 F), vous bénéficiez 
d'un support largement diffusé. 
Qui plus est, votre texte passera 
dans une autre revue ; MEGA- 
HERTZ (Informatique et Commur- 
nication) : une chance supplé- 
mentaire de faire des affaires ! 


KILOBYTE 


maginez que votre AMSTRAD 

vient de tomber en panne : il ne 
lui reste plus qu'un kilo-octet de 
mémoire. 
Vous ne connaissez que le Basic 
(langage machine s'abstenir). 
Saurez-vous écrire des program- 
mes originaux performants qui ne 
tiennent que dans ce kilo-octet ? 
Nous attendons vos propositions, 
en Basic seulement, ne l'oubliez 
pas, et sur cassette. Accompa- 
gnez votre envoi d’une brève des- 
cription. Les cassettes vous 
seront retournées si vous le 
demandez. 
Alors, tous à vos claviers ! Il faut 
réussir à loger le maximum d'in- 
telligence dans un kilo-octet… 
Les meilleurs programmes seront 
mis à l'honneur dans CPC. 


QUPER! 
LES SUPER 


À écialisée 
ibraire ou en boutique spécialis 


re programmes de 


En vente chez votre Ï 


90 programmes 

de jeux progressifs en Basic;| 
d'adresse, 

de réflexion et de hasard. 


an-François Senan 


SUPER JEUX MSX 
par Jean-François Sehan 
240 pages - 120 FF 


SUPER JEUX YENO SEGA 3000 
par Jean-François Sehan 

240 pages - 120 FF 

SUPER JEUX AMSTRAD 

par Jean-François Sehan. 

240 pages - 120FF 


P.S.1 DIFFUSION B.P. 86 
77402 LAGNY SUR MARNE CEDEX 
Tél. (6) 006.44.35. - Télex : PSIDIF 600 978 F 


LES DESSOUS DE L 


BB" de nouveau-venus à la micro- 
informatique ont choisi l'AMSTRAD pour le prix 
de cet ENSEMBLE complet, face à ses concurrents 
où il faut ajouter une petite télé couleur, un magné- 
tophone, extension mémoire, des câbles, des inter- 
faces pour ceci ou pour cela. 

C'est vrai, mais le professionnel examine l'appareil 
en le comparant non seulement aux micros dits 
‘’domestiques’”, mais aussi aux micros dits ‘’profes- 
sionnels”” genre APPLE Ile, TRS 80, IBM PC, etc., et 


là, nous sommes allés de surprise en surprise. 


LE CLAVIER 


Un vrai mécanique, bon toucher 
et apparamment robuste. 
QWERTY, les dactylos n'aiment 
pas cela, mais les programmeurs 
le préfèrent à l'AZERTY. Complet 
avec pavé numérique ou onze 
touches de fonctions, et pavé de 
‘’flèches'’. Deux défauts 
absence totale de témoin de 
CAPS LOCK (très génant) et posi- 
tion trop haute (fatigue des poi- 
gnets). Un coloris plus clair que 
cet anthracite aurait fait moins 
sévère. 
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LE BASIC 


Super riche et puissant. Très lar- 
gement inspiré du ‘‘Standard 
Microsoft’ (mêmes syntaxes), il 
se montre souvent plus tolérant 
et plus rapide. Beaucoup de fonc- 
tions inédites, mais aussi quel- 
ques absences remarquées et 
regrettables (CIRCLE, PAINT, 
GET, hauteur double, etc.). Le 
grand point fort est d'avoir 
43533 octets disponibles malgré 
un Basic de 32 k-octets et une 
mémoire d'écran de 16 k-octets. 
Je m'explique un micro- 


Michel ARCHAMBAULT 


ordinateur ‘’8 bits'’ ne peut 
adresser que sur 64 k (=65536 
octets ; 1 k-octet = 1024 octets 
et non 1000). Or, 64-32-16- 
16 k qui devraient nous rester, 
c'est pour cela que d’autres 
micros aux Basic 32 k ne suppor- 
tent pas de gros programmes. Le 
secret (très complexe) est une 
savante commutation partielle 
entre ROM et RAM qui nous 
laisse 43 k au lieu de 16 k ! Résul- 
tat : on peut charger d'énormes 
logiciels du commerce (exemple 
‘’FIGHTER PILOT'" qui fait envi- 
ron 38 k...), ou stocker beaucoup 


de choses en mémoire à la suite 
d'un programme, exemple en 
traitement de texte, gestion de 
fichiers, etc. 


L'ECRAN 


Le moniteur couleur n’a qu'un 
seul réglage, c'est maigre, mais 
le tube est excellent. Gros point 
fort : on a les ‘80 colonnes’’ ! 
C'est pratiquement indispensable 
lorsque l’on utilise des logiciels 
dits ‘’utilitaires’’ genre traitement 


de texte, tableur (‘’CALC'') et: 


pour la haute résolution graphi- 
que (finesse du trait). Sur d’au- 
tres micros, il faut pour cela enfi- 
cher une carte électronique 
valant une petite fortune ; ici 
c'est gratuit et programmable, 
donc sans rien démonter ! Le 
débouché est donc évident sur 
des utilisations professionnelles. 
Le second point fort est que l’on 
peut intimement mêler texte et 
graphisme sur une même page 
d'écran. AMSTRAD n'est pas le 
seul en ce domaine (exemple 
THOMSON), mais c'est une 
mode assez récente et bien pra- 
tique. 

Le revers de la médaille à pré- 
sent : en mode ‘‘normal'’ (40 
caractères), on ne dipose que de 
quatre couleurs simultanées — 


une misère. D'autre part, le plan 


mémoire de l'écran est d’une 
complexité inouie dont je vous 
ferai grâce aujourd'hui. Faire des 
POKE et des PEEK dans la mé- 
moire d'écran d’un ORIC ATMOS 
est chose enfantine, mais là, bon 
courage ! 


LA MEMOIRE DE MASSE 


C'est ici le magnéto-cassette. 
Modèle monophonique bas de 


gamme adapté à ce micro- 
ordinateur. On a ainsi hérité de 
cette maudite touche PAUSE 
plus farceuse qu'utile 
(condamnez-la), et on n'a pas 
d'arrêt automatique en fin de 
bobinage. Toutefois, il semble 
étonnamment fiable et robuste. A 
part l'absence de VERIFY, les 
commande BASIC qui s'y rappor- 
tent sont très complètes, voire 
originales, exemple SAVE ‘‘ ’’,P. 
Et puis, il y a en option le (ou les) 
lecteur de disquettes, ou 
"DRIVE", avec tous les agré- 
ments que cela apporte. Mais 
quelle idée bizarre d'avoir opté 
pour le format 3 pouces ? Trois 
fois et demi plus cher que les 5 
pouces 1/4, trois fois plus petit, 
mais quatre fois plus épais. On lit 
‘‘’par sa compatibilité il vous 
ouvre la grande bibliothèque 
CP/M''. Oui, mais à l'heure 
actuelle, le CP/M est en 5 pouces 
1/4 et il faudra attendre les tra- 
ductions en 3 pouces (déjà en 
cours, paraît-il). Même remarque 
pour la compatibilité avec cer- 
tains fichiers d'IBM PC qui, lui 
aussi, est en 5 pouces 1/4... 


LA RAPIDITE 


La rapidité d'affichage à l’écran, 
par exemple, en faisant LIST, est 
très moyenne, à cause de la 
complexité de la mémoire 
d'écran. En revanche, la rapidité 
de traitement est surprenante, 
plus rapide qu'un APPLE Il et seu- 
lement 10 % moins rapide qu’un 
IBM PC ! Exemple : FOR 1%=1 
TO 10000:NEXT. 

Durée 5,5 secondes contre 
5,1 secondes sur IBM PC. Par 
pudeur, nous tairons les temps 
chronométrés sur certains micros 
actuels. 


AMSTRAD CPC 464 


Cela nous amène à parler temps : 
quatre chronomètres (fonctions 
AFTER et EVERY) plus une hor- 
loge (TIME). Le grand luxe. 


LE MANUEL 


Il est en français, il est épais, 
robuste et bien relié. Je pense 
que son auteur a voulu bien faire 
mais qu'il était ‘pris à la gorge” 
par le temps, d'où cet aspect un 
peu désordre et quelques lacu- 
nes, somme toute, pardonnables. 
Ce sera aussi notre rôle d’éclair- 
cir l'utilisateur de certaines fonc- 
tions Basic. 


LES LOGICIELS 


Même remarque que pour le 
manuel : les premiers furent sou- 
vent un peu simplistes, mais on 
voit maintenant fleurir des petits 
chefs-d’œuvres (voir notre banc 
d'essai). Je constate que des 
‘best sellers’ sur les autres 
micros sont de plus en plus sou- 
vent ‘‘traduits’” pour fonctionner 
sur AMSTRAD qui, d'emblée, a 
été pris très au sérieux par tous 
les éditeurs. Grâce à sa possibi- 
lité 80 colonnes, la qualité de son 
DRIVE et sa rapidité, il est fort 
probable (avis personnel) que des 
logiciels professionnels déjà très : 
célèbres fassent leur apparition 
pour AMSTRAD, mais sur dis- 
quettes obligatoirement. 


CONCLUSION 
L'AMSTRAD constitue un cas 
jusqu'ici unique un micro- 


ordinateur ‘’domestique’’ de prix 
très modique et qui est déjà prêt 
pour faire du (petit) professionnel. 
Il commence seulement à nous 
surprendre. 
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me 


Michel ARCHAMBAULT 
Pierre BEAUFILS 


LAVE D. CT 


== 


ROLAND ON THE ROPES 
(Amsoft) en anglais 


J'ai vu par ailleurs beaucoup de 
critiques sur les logiciels 
AMSOFT, que l’on qualifie de 
‘’faibles’”. Ce n’est pas mon opi- 
nion. Il faut dire que, les années 
passant, nous devenons très dif- 
ficiles sur la qualité des logiciels, 
et nous leur demandons de plus 
en plus d'originalité, de suspense, 
etc. Pour ceux d’entre vous qui 
ont acquis un ORIC-1, il y a quel- 
ques années (eh oui, déjà), je me 
permettrai de faire appel à leurs 
souvenirs : se rappellent-ils un 
certain ‘‘simulateur de vol”’ ? Eh 
bien, AMSOFT, c'est 100 fois 
mieux. Des graphismes corrects, 
de la couleur, du son, des images 
qui bougent rapidement, bref, 
des logiciels corrects. Il ÿ a 


mieux, mais il y a pire ! 

Roland est un brave homme, qui 
est dans un labyrinthe vertical, 
dans lequel il se déplace, soit 
dans des couloirs, soit dans des 
cheminées ; il doit sortir de ce 
dédale. Il y a évidemment des 
bestioles (elles sont petites et 
mignonnes), des fantômes, etc. 
Le jeu n'est pas bien dur, et 
conviendra à des enfants jeunes. 
On peut utiliser une manette de 
jeu, et c'est très agréable. 
Graphisme =2 — Animation = 2 
Son =2 — Intérêt = 2. 


KARLS TREASURE HUNT 
(Software Super Savers) 
en anglais 


Ce jeu est nettement supérieur au 
précédent. Graphismes en cou- 
leurs très élaborés assurent un 
renouvellement constant. || y a de 
nombreux tableaux (40) et l’on 
passe de façon naturelle de l’un 
à l’autre. Karl, notre héros, doit 
ramasser des clés en or dans cha- 
cune des pièces d’une grande 
maison. L'intérêt du jeu est cer- 
tain, dans la mesure où il faut 
chercher comment accéder à 
chaque clé, et qu'il n’est pas évi- 
dent à chaque fois que l’on est 
entré par le bon côté de la pièce. 
Les difficultés sont très variées, 
et se renouvellent à chaque 
pièce. 

Un logiciel de qualité qui vous 
fera passer de bons (et de longs) 
moments agréables. Le genre de 
chose dont on doit disposer en 
une dizaine d'exemplaires dans la 
logithèque. 

Graphisme =4 — Animation = 4 
Son=3 — Intérêt = 4. 


DES LOGICIELS 


Dre 


OH MUMMY 


ÿ RE 


BY 
GEM SOFTWARE 


OH MUMMY 
(Amsoft) en anglais 


Ca, par contre, c'est beaucoup 
moins génial ! Un explorateur doit 
visiter une pyramide. À chaque 
niveau de celle-ci, une vingtaine 
de ‘‘briques’” (c'est ma traduc- 
tion du mot anglais correspon- 
dant !) dissimulant objets et tré- 
sors. Le fait de tourner complè- 
tement autour de l’une d'elles fait 
découvrir ce qu’elle cache. Pour 
passer au niveau supérieur, il faut 
aussi découvrir une clé, un trésor 
et je ne sais plus quoi d'autre (le 
graphisme est quelconque). Mais 
pour corser ce jeu extraordinaire, 
tenez vous bien, il y a un gardien 
qui vous pourchasse et qui vous 
empêche de tourner en rond 
(c'est le cas de le dire). Mais je 


n'ai pas tout dit : au second 
niveau, il y a maintenant deux 
gardiens qui vous pourchassent 
et qui... C'est sublime ! Bien sûr, 


‘au troisième niveau, il ÿ en a 3. 


De quoi vous donner des frissons 
dans le dos. 

Ne soyons pas méchants et 
admettons que ce jeu conviendra 
aux enfants. Il n'y a pas une ving- 
taine de touches à mémoriser ; le 
jeu est simple et sans suprise. 
Signalons qu'il y a plusieurs 
niveaux de difficulté et de rapi- 
dité ; on peut utiliser une manette 
de jeu. 

Graphisme =2 — Animation = 3 
Son=2 — Intérêt = 2. 


SULTAN'S MAZE 
(Amsoft) en anglais 


Un jeu de labyrinthe qui a déjà 
tourné sur d’autres ordinateurs. 
lci, il s’agit d'une version un peu 
améliorée et moins dépouillée. Ne 
vous laissez pas abuser par la 
mention 3D (3 dimensions) : vous 
vous déplacez dans un genre 
d'hôpital (il s’agit d’un château, 
bien sûr) aux murs, sols et pla- 
fonds absolument neutres et lis- 
ses, et vous ‘‘voyez'’ la partie du 
labyrinthe dans laquelle vous 
vous trouvez. De temps à autre 
(mais vous perdez des points), 
vous pouvez consulter une vue 
d'avion, qui vous permet de vous 
situer. Il faut ramasser des pier- 
res précieuses et éviter des fan- 
tômes. Ce jeu souffre d’une cer- 


taine lenteur et est vite 
ennuyeux. Disons qu'il faut 
aimer. 


Graphisme =2 — Animation = 2 
Son=2 — Intérêt =3. 


JE. 


SULTAN’S MAZE 


BY 
GEM SOFTWARE 


EASI-AMSCALC (version 1.5) 
(AMSOFT) en anglais 


Tableur. On est impressionné par 
l'emballage, l'épaisseur de la 
notice, et par le prix. On s'attend 
à un petit VISICALC ou micro 
MULTIPLAN, cruelle désillu- 
sion. ! Très lourd à programmer, 
très lent à réagir (surtout en 
translation horizontale) et à l’af- 
fût de la moindre étourderie pour 
vider un tableau si laborieuse- 
ment rempli. Ajoutez à cela les 
tabulations qui se décalent tou- 
tes seules à l'édition, les BORDER 
qui clignotent, plus d’autres far- 
ces et attrapes. Que fait donc ce 
‘‘logiciel"" chez AMSOFT ? 
Notice = 4 (en anglais) — facilité — 
1 — efficacité= 1 — performan- 
ces=2 — intérêt = 1. 
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AMLETTRES 
(AMSOFT) en français 


Traitement de texte. Première 
remarque, il est en français avec 
les caractères minuscules accen- 
tués. La notice est complète, 
mais il faut une bonne loupe pour 
la lire. Pour 150 francs, on ne 
peut espérer les mêmes possibi- 
lités que d’un traitement de texte 
à 3000 francs ; aussi, les auteurs 
ont fait une sélection très judi- 
cieuse des options proposées, 
c'est-à-dire l'indispensable, et 
même quelques petits luxes 
comme la justification à droite et 
un menu d'imprimante des plus 
copieux. Conçu pour une utilisa- 
tion épisodique et non profes- 
sionnelle, il est parfait pour rem- 
placer très avantageusement une 
machine à écrire à la maison, 
pour une lettre ou un rapport de 
cinq à six pages. 

Notice =3 — facilité =5 — effica- 
cité=4 — performances =3 
intérêt = 4. éa t i 


È 
î 


ock allocate 
lculate sheet 


splay fornulae 
ter data 


Le 


TS 


oo 


SE 


x 


et Le) 


ernula usa 
Set nunber 2 
Lee colours 


UT et sol de Lt | y)... LS) Là 


ditis 


Nommer 
GESTION DE FICHIERS Re, 
(CORE) en français Impr e on 
Multi-doc ument 


Un emballage très triste, une Définition de: 
notice copieuse, un prix bas qui couleur 

inquiète, mais un produit en fait 
très correct et intelligemment 
conçu : clarté et facilité d'emploi 
avant tout. On l’a tout de suite 
‘’en main’’. Les maxima sont les 
suivants : nombre de fiches = 
200 (dans la pratique, c’est bien 


suffisant pour un même nom de n Huriques Iisif ga 

fichier), nombre de rubriques = Re SE : 

20, nombre de caractères par FI 

rubrique = 25 (plus le nom de la  »! FD TES MM: % 

rubrique), capacité totale=envi- FILM 4: LES TEMPS MODERNES 
ron 20 000 caractères. Nous dis-  ! d Le 7 vou CHAPLIN 


posons des options habituelles, à 
savoir tri, recherche multi- 
critères, duplication de fiche, édi- 
tion sur imprimante, etc. Nous 
ajouterons une sage recomman- 
_dation : lors de la saisie, ne lais- 
sez pas en blanc une de vos rubri- 
ques, mettez-y un caractère quel- 
conque (astérisque), sinon vous 
ne pourrez plus compléter cette 
fiche. 

Notice =4 — facilité=5 — effi- 
cacité = 3 — performances = 3 — 
intérêt = 4. 
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ALA VITRINE DU LIBRAIRE 


‘’TRUCS ET ASTUCES 

POUR LE CPC 464" 

Data Becker (Traduction Micro- 
Application) 

Prix : 149 F 


Vous avez acheté un CPC 464 ou 
vous allez le faire puisque vous 
lisez cette revue. Avec la 
machine, vous recevrez une 
notice, assez bien faite, qui vous 
permettra de commencer à pro- 
grammer. Pour aller plus loin et 
découvrir les secrets de votre 
CPC 464, vous aurez la possibi- 
lité d'acheter ce livre ; vous ne le 
regretterez pas. || complète 
agréablement le manuel d'origine. 
Les diverses possibilités de la 
machine sont reprises et détail- 
lées. Le graphisme : créations de 
fenêtres, éditeur, couleurs, fonc- 
tions de tracé, redéfinition des 
caractères, organisation de la 
mémoire d'écran, n'auront plus 
de secret pour vous. De la même 
manière, vous apprendrez à maî- 
triser le son et ses instructions. 
La seconde partie de l'ouvrage 
est consacrée à une introduction 
au langage machine. Ce n'est pas 


un cours sur la programmation 
détaillée du Z80 (le microproces- 
seur qui équipe le 464), mais une 
bonne approche. Il vous sera 
alors possible d'entreprendre un 
voyage au sein de la mémoire de 
votre CPC 464. Un mini-moniteur 
est décrit pour faciliter vos inves- 


tigations. Le livre vous expliquera 
comment une ligne Basic est 
implantée en mémoire, et 
comment sont codés les fameux 
‘’TOKENS"" et les variables. 
Une des parties les plus intéres- 
santes du livre est consacrée aux 
routines utiles de la ROM. Points 
d'entrée, contenu des registres 
au moment de l'appel de la rou- 
tine, valeurs en sortie, etc. Plus 
d'excuses pour ne pas créer de 
bons programmes en langage 
machine en utilisant les ressour- 
ces de la ROM : lecture des joy- 
sticks, scrolling, clignotement, 
saisie du clavier, gestion du 
curseur. 

Vitesse améliorée, précision de 
calcul, programmes de tri voisi- 
nent avec des utilitaires tels que : 
échange de données entre 
AMSTRAD et COMMODORE, 
buffer imprimante, etc. Tout 
contribue à tirer le meilleur parti 
de votre machine. Des embryons 
de programmes utilisateurs for- 
ment le dernier chapitre de cet 
ouvrage qui trouvera certaine- 
ment sa place à côté de votre 
ordinateur favori. 


NOUVEAUTES 


MATHEMATIQUES SUR AMS- 
TRAD 


Enfin des utilitaires scolaires à la dis- 
position des ‘’Amstradiens’’ | 

Il s'agit d’un pack de 3 cassettes : 
FORMULAIRE, UTILITAIRES et 
EXERCICES DE MATHEMATIQUES, 
destinés principalement aux élèves 
de la seconde à la terminale déter- 
minés à profiter des avantages que 
leur offre l'ordinateur pour leurs étu- 
des. 

Le FORMULAIRE, par une animation 
quasi-constante et une présentation 
contrastée, témoigne d’un souci de 
mise en valeur des formules dans un 
cadre ordonné, clair et agréable, ce 
qui n’est pas négligeable quand on 
sait à quel point les formules utilisées 
en trigonométrie, pour les dérivées, 
les primitives et les nombres 


complexes sont d'ordinaire peu 
agréables à apprendre. 

Les UTILITAIRES s'attachent princi- 
palement à soulager l'utilisateur de 
calculs souvent longs et fastidieux 
qu'une calculatrice, même program- 
mable, ne peut résoudre. Bénéficiant 
d'un accès rapide, l'utilisateur 
pourra s'attacher non seulement à la 
résolution d'équations, d’inéqua- 
tions et de systèmes de degré x àn 
inconnues, mais encore au calcul 
matriciel, aux opérations sur les 
nombres complexes ou bien au cal- 
cul barycentrique, etc. Ils sont utiles 
de la seconde aux premières années 
de l’enseignement supérieur. 

Les EXERCICES, indispensables pour 
compléter la compréhension acquise 
en cours, sont classés par thèmes et 
par niveaux de difficulté. Là encore, 
les possibilités de rapidité et d'effi- 


cacité de l'ordinateur sont bien 
exploitées, facilitées par la redéfini- 
tion de nombreux caractères mathé- 
matiques. Chaque énoncé est fort 
heureusement accompagné en 
option d’un corrigé, ce qui permet à 
l'étudiant de comprendre ses erreurs 
ou de compléter ses connaissances. 
L'ensemble présente donc de nom- 
breux aspects positifs ; mis en œuvre 
avec un souci sérieux de recherche 
pédagogique, ces logiciels devraient 
permettre à beaucoup de faire de 
réels progrès en mathématiques. 
A quand la physique ? 


L'unité : 150 F 

Le pack : 390 F 
Distribution : 
LOISITECH 

83, av. Faidherbe 
93106 Montreuil 
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cs RéCOrUs 


vis à tous les chasseurs de 

flag-ships, de gloutons et de 
space-invaders : Montez sur la 
plus haute marche du podium en 
nous envoyant les high-scores 
réalisés sur vos jeux d'arcade pré- 
férés. Votre nom figurera alors 
dans le tableau d'honneur de 
CPC. 
Il suffit pour cela de nous envoyer 
le nom du programme, votre 
nom, votre score et une photo- 
graphie d'écran en noir et blanc 
ou en couleur permettant d’au- 
thentifier votre performance. 
Mais attention, tout ceci n'est 
valable que pour les programmes 
pour lesquels on ne peut pas 
régler les paramètres de jeu ni 
changer de niveau. Nous avons 
un jury constitué de jeunes Ams- 
tradmaniaques qui se chargeront 
de détecter et d'éliminer toute 
tentative de tricherie. Alors, tous 
à vos joysticks et bonne chance ! 


SCORE AUTEUR 


Eric VIEL 
Sébastien LEJEUNE 
Stéphane CLOIREC 


HARRIER ATTACK 
ELECTRO FREDDY 
ROLAND IN THE 
CAVES 
HUNCHBACK 
GALAXIA 
FRUITEY FRANCK 
(slow) 

MANIC MINER 
SPACE HAWKS 
SPANNERMAN 
3D-INVADERS 
FIRE-ANT 
DEFEND OR DIE 
LASER WARP 
SURVIVOR 
ROLAND GOES 
DIGGING 
PINBALL WIZARD 
(vitesse 5) 

ALIEN BREAK-IN 


57140 
1210 
865144 


101700 
3720 
11320 


15784 
31500 
27100 

2189 
14900 
17725 
15360 
57500 

101L15p 


7970 
21700 


Stéphane PRUNIERE 
Yannick BOUREE 
Eric FAUREZ 


Stéphane CLOIREC 
Maxime GAUDIN 
Marie-Christine VIEL 
Stéphane PRUNIERE 
Yannick TERTRE 
Sandrine BONOMO 
Nicolas CLOAREC 
Claude BLANCHARD 
Philippe ANGEARD 


Matthieu LEJEUNE 


Kévin PIERRAT 


LE MANOIR DE 
ROCHEBRUNE 


E° quête d’une aventure, arri- 
vez dans le pays de Dragon — 
naze qui domine une solide for- 
teresse. Le Baron de ce territoire 
a jeté depuis bien longtemps un 
maléfice sur la région. De plus, il 
retient sa fille, la belle Hélène, pri- 
sonnière dans son donjon, la Tour 
Noire. 
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De nombreux princes du royaume 
sont venus lui demander sa main, 
mais aucun n’a pu ressortir vivant 
du château. En apprenant cela, 
vous décidez, vous aussi, de ten- 
ter votre chance. 

Pour obtenir l'accès à la Tour 
Noire et délivrer la Princesse, il 
vous faudra réunir un diamant, un 


lingot, un coffre, un sceptre et 
une couronne, ainsi que tuer le 
Dragon (mais attention ! ses 
coups sont mortels |). 

BONNE CHANCE ! 


Pascal et Laurent KERLOCH 


LEYÉIÉEETTÉ 
LE MANOIR 


ROCHEBRUNE 


on 
Le] 
RS ee co CS 7e Ar rer a 


* * 
* Ë 
* * 
* * 
À DE * 
* f 
* * 
* * 
LYTEELYELXTIÉ 


par Laurent 


et Pascal  Kerioch 


Copyright 1985 


un 
on 
Le] 
Sn 


LÉÉTELEEEEEELEEE 

+ PRESENTATION * 

200 ? XXKÉAÉEEELEEEEET 

210 MODE 1:BORDER ! 

220 INK 0,0:INK 1,18:INK 2,6:INK 3,24 

230 PEN 2: LOCATE 16,5: PRINT"Le Manoir" 
240 LOCATE 20,8:PRINT"de" 

250 LOCATE 16,11:PRINT'Rochebrune" 

260 PEN 3 

210 LOCATE 1b,86:PRINT STRING$(9,CHR$(208)) 
280 LOCATE 20,9:PRINT STRING$#(2,CHR$(208)) 
290 LOCATE 16,12:PRINT STRING$(10,CHR$(208)) 


300 PEN !:LOCATE 20,15:PRINT'par Pascal" 
310 PEN 1:LOCATE 20,17:PRINT'et Laurent Kerloch" 


320 ENV 1,100,-0,5,20 
330 ENV 2,50,-0.5,10 


340 SOUND 1,239,60,12,1:SOUND 2,478,60,12,1 
350 SOUND 1,319,30,12,2:SOUND 2,638,30,12,2 
360 SOUND 1,319,30,12,2:SOUND 2,638,30,12,2 
370 SOUND 1,239,60,12,1:SOUND 2,478,60,12,1 
380 SOUND 1,190,60,12,1:SOUND 2,379,60,12,1 
390 SOUND 1,169,60,12,1:SOUND 2,338,60,12,1 
400 SOUND 1,190,30,12,2:SOUND 2,379,30,12,1 
410 SOUND 1,190,30,12,2:SOUND 2,379,30,12,1 
420 SOUND 1,169,60,12,1:SOUND 2,338,60,12,1 
430 SOUND 1,190,60,12,1:SOUND 2,379,60,12,1 


440 SOUND 1,169,120,12,.:SOUND 2,338,120,12,! 

450 FOR ATT=1 TO 3000:NEXT ATT 

460 ‘ Létetttiereneseste: 

470 ‘ * INITIALISATION * 

480 Dédttieieseseseste 

490 MODE ! 

500 ROUTI=1:PARAM=1:DIM ARM$(12):DIM TRES$(12) 

510 DATA Diasant,Lingot,Coffre,Sceptre,Couronne ,Da 
que ,Arc,Hache,Araure,Lance,Epee 

520 FOR A=8 TO 12:READ A$:TRES$(A)=A$:NEXT A:FOR À 
={ TO 12 STEP 2:READ A$:ARMS(A)=A$:ARM$(A+L)=A$:NE 
XT A 

530 CLS:DIM ARM(120):DIM TRES (12) :WINDOW #1,28,40 
31,2: VINDOW #2,28,40,4,17:WINDOW #3,28,40,19,29 WI 
NDOW #0,1,26,4,25:WINDOW #4,1,3,1,2:WINDOW #5,5,2b 


11,2 

040 INK 0,0:INK 1,15:INK 2,6:INK 3,18:FOR A=0 TO 5 
: PAPER #A,0:NEXT A:PEN #0,1:PEN #1,1:PEN #2,3:PEN 
#3,2:PEN #4,3:PEN #5,2 

550 BORDER 3 

960 PLOT 50,400,2:DRAUR 0,-34,2:DRA#R -50,0,2:PLOT 
R 0,-12,2:DRAWR 418,0,2:DRAUR 0,-354,2:PLOTR 12,0, 
2:DRAUR 0,114,2:DRAUR 210,0,2:PLOTR 0,12,2:DRAUR - 


219,0,2:DRAUR 9,328,2:DRAWR 210,0,2:PLOTR 0,12,2:D 
RAUR -210,0,2 DRAWR 0,34,2:PLOTR -12,0,2:DRAWR 0,- 
34,2 

S10 DRAUR -358,0,2:DRAUR 0,34,2 

580 PRINT" Des ruseurs circulent quidisent que Île 
terrible Baron de Dragonnaie garde sa fille, la 
Princesse Helene, dans le Donjon de son Chatea 
u, ia Tour Noire * 

590 PRINT" Vous avez decide de la delivrer et vo 
US Vous dirigez vers le sogbre Manoir de Ro 
chebrune.":PRINT 

600 IF INKEY$C"" THEN 610 ELSE 600 

610 CLS'PRINT" Le Sphinx qui en garde  l’entree v 
ous enonce vos droits et obligations :":PRINT 

820 PRINT" Vous devez rassesbler 5 Tresors differ 

ents et tuerie Mechant Baron qui des votre arrive 
e se setaaor- phose en un Terrifiant Dragon." 
639 PRINT:PRINT'Mais vous etes bien decidea tenter 
votre chance et vous penetrez dans le Cha-teau, 

Le pont-levis se  referse derriere vous.":PRINT 
640 IF INKEY#="" THEN 649 ELSE CLS 


650 ‘ ÉÉEFELEELEEEREEEEEELEEEENEEEEEEE 

660 ‘ * TIRAGE DE LA FORCE DE DEPART t 

b70 ‘ ÉXÉEEEEEEELEEEEEEELAEEEEEEEELELE 

680 PRINT #1,"Votre Force” 

690 FRC=INT(RND(1)#10)+2 

700 IF FRC=2 THEN PRINT'"Vous n'avez pas de chance 
du tout, l'ordinateur ne vous attribut que 2 poin 
isde valeur” 

710 IF FRC}2 AND FRC=5 THEN PRINT'Vous n'avez pas 
beaucoup" :PRINT'de chance, l'ordinateur" :PRINT"vo 
us donne "FRC:" points de":PRINT'valeur" 

720 IF FRC>5 AND FRC<10 THEN PRINT'Vous avez de la 
chance, l'ordinateur vous donne  ":FRC:" point 

s de valeur" 

730 IF FRC>=10 AND FRC€=12 THEN PRINT'L'ordinateur 
vous apprecie":"vraiment beaucoup, il vous":"donn 
e“FRC'points de valeur" 

740 PRINT 

750 ? HÉLEHEEEEEEEX 

760 ‘ * RENCONTRE # 

770 ! XEFYÉEEEEENNE 

780 FOR ATT=0 TO 3000:NEXT ATT:CLS 

790 CLS #5:CLS #4 

800 LOCATE #1,1,2:PRINT #1," "FRC 

810 GOSUB 880 

820 IF FRC<O THEN 3900 

830 RC=INTIRND(1)#100)+1 

840 IF RC<=40 THEN 1050 

850 IF RC<=65 THEN 2100 

860 IF RC€=90 THEN 3130 

870 IF RC{=100 THEN 2380 

880 TABLEAU DES ARMES 

890 LOCATE #2,1,1 

900 PRINT#2, "Armes :":PRINT#2,"" 

510 FOR D=1 TO 120 

920 IF ARM(D)=0 THEN 950 

930 IF ARM(D)=!2 THEN PRINT #2,"Epee de Feu":GOTO 

950 

940 PRINT #2,ARMS$(ARM(D)):TAB(9)ARM(D) 

950 NEXT D 

960 ‘ TABLEAU DES TRESORS 

970 LOCATE #3,1,1 

980 PRINT#3,"Tresors :":PRINT#3,"" 


990 FOR D=1 TO 6 
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1600 IF TRES(D)=0 THEN 1020 

1010 PRINT #3,TRES#(TRES(D)):TAB(9)TRES (D) 

1920 NEXT D 

1030 IF ROUTI=6 AND DRAGON=1 THEN 4090 

1080 RETURN 

1050 ‘ ÉEREEFÉERERENEEEREEEEEEELEEE 

1960 ‘ * RENCONTRE AVEC .UN MONSTRE * 

1070 ‘ HEXKEEEEEELEEEEEENEEEEEEEEEX 

1080 * TYPE DE MONSTRE 

1090 TOM=INT(IRND(1)#100)+1 

1100 IF TDM€=2 THEN M$="e Licorne":B=5:G0T0 1300 

1110 IF TDM€=5 THEN M$=" Centaure":B=8:GOTO 1300 

1:20 IF TDM<=8 THEN Mf=" Spectre":B=4:G0TO 1300 

1130 IF TDM<=10 THEN M$=" Cobelin":B=3:GOTO 1300 

1140 IF TDM<=13 THEN M$=" Squelette":B=4:GOTO 1300 

1150 IF TOM<=16 THEN X$='e Sorciere":B=5:GOTO 1300 

1160 IF TDM<=19 THEN M$=" Sphinx" :B=6:GOTO 1300 

1170 IF TOMé=21 THEN M$="e Chimere":B=8:GOTO0 1300 

1180 IF TOM=24 THEN M$=" Titan":B=10:GOTO0 1300 

1:90 IF TDMé=27 THEN M$=" Demon":B=6:GOTO 1300 

1200 IF TDM€=30 THEN M$=" Fantome":B=6:GOTO 1300 

1210 IF TDM<=22 THEN X$="e Momie":B=5:GOTO 1300 

1220 IF TDM<=35 THEN M$=" Diabie":B=5:GOTO 1300 

1230 IF TDMé=39 THEN M$=" Griffon":B=6:GOTO 1300 

1240 IF TDM=47 THEN M$=" Cobra":B=5:GOTO 1300 

1250 IF TDMé=57 THEN Mt=" Troil":R=9:GOTO 1300 

1260 IF TDM<=66 THEN M$="e Goule":B=2:GOT0 1300 

1270 IF TDM{=74 THEN M$=" Vanpire":B=6:GOTO 1300 

1280 IF TDM<=85 THEN M$=" Gnome" :B=5:GOTO 1300 

1290 IF TDM=100 THEN M$=" Balrog":B=8:GOTO 1300 

1300 FORCE DU MONSTRE 

1310 FDM=B+{INT(AND(1)#3)) 

1329 PRINT'Vous etes attaque par":PRINT'un"M$" de 

force"FDX 

1330 PRINT 45,"Monstre :" 

1340 PRINT #5,"Un°M$" Force"FDM 

{350 PRINT 

1360 SOUND 1,319,16,5:SOUND 1,239,16,5:SOUND 1,253 
16,5: SOUND 1,284,16,5 

1270 SOUND 1,253,48,5:SOUND 1,239,16,5:SOUND 1,213 
,48,5:SOUND 1,190,16,5 

1360 SOUND 1,213,16,5:SOUND 1,239,16,5: SOUND 1,253 
:16,5:SOUND 1,239,32,5 

1390 SOUND 1,253,16,5:SOUND 1,284,48,5:SOUND 1,319 
48,5 

1400 REM Ltesssstee: 

1410 REM * COMBAT * 

1420 REM Léttenees: 

1430 INPUT"Voulez-vous combattre ce m#onstre (O/N) 
",DESIR$ 

1440 IF DESIR#="0" OR DESIR$="o" THEN 1460 

1450 IF DESIR$="N" OR DESIR$="n" THEN 2050 ELSE 14 

30 

1460 ‘ KÉLÉÉÉRENEEEEEELELE 

1470 * CHOIX DE L'ARME * 

1490 LÉÉÉELEEEEEREECEEEE 


1490 PRINT 

1500 PRINT "Avec quelle arse voulez- voùs coabatt 
re 2": INPUT “ { Si vous n'avez pas d'arme ta 
pez O0 }":VARM 


1510 FOR V=0 TO 120 

1520 JF ARM(V)=VARM OR VARM=0 THEN ABUS=0 : GOTO 1 

570 

1930 NEXT V 

1540 PRINT"Vous ne possedez pas cette arme *:ABUS= 

ABUS+1 

1550 IF ABUS=10 THEN VARM=0:GOTO 1570 

1560 GOTO 1460 

1570 Lotosteresesesetesses 

1580 ’ * CALCUL DU COMBAT * 
LÉLÉLEEEEEELELEL EEE 


18 


1590 

1600 PRINT 

1810 PRINT'Pour engager le combat tapez sur une 
touche" :PRINT 

1620 CA=CA+I 

1530 IF INKEY$C"" THEN 1650 

1840 GOTO 1620 

1650 VCOMB-FDM-VARM 

1660 IF VARM:FDM THEN VCOMB=0 

1670 PRINT'Le combat est de force"VCOMB 
1680 LOCATE #4,1,1:PRINT#4, "Des" 

1690 FOR À={ TO 20:SOUND 1,60,1,2 

1700 DES=INT(RND(1)#10)+2 

1719 DES$=(RIGHT# (STR$ (DES) ,2)) 

1720 LOCATE #4,1,2:PRINT #4,DE5$ 

1730 FOR E=1 TO 100:NEXT B 

1749 NEXT A:SOUND 1,119,5,2 

{750 IF DES<VCOMB THEN 1910. 

1760 IF DES}VCOME THEN 1780 

1770 IF DES=VCOMB THEN 1850 


1780 Losttesess 
1790 * GAGNE * 
1800 Ltttesses 


1810 FRC=FRC+VCOMB 

1820 PRINT'Vous avez gagne, les des ont fait "DES 
1830 PRINT 

1840 GOTO 750 


1850 ? LEE 
1860 * LE MONSTRE FUIT * 
1870 ? ÉÉÉLEOEREEEEEEEE 


1880 PRINT'Le aonstre fuit, les des ont fait "DES 
1890 PRINT 
1900 GOTO 750 


1910 ” #EXÉLEELE 
1920 * PERDU * 
1930 : ÉÉLETEIEE 


1940 FRC=FRC-VCOMB 
1950 PRINT*Vous avez perdu, les des ont fait "DES 


1960 PRINT 

1970 IF VARM=0 THEN 750 

1980 FOR D=1 TO 120 

1990 IF ARM(D) €VARM THEN NEXT D 


.2000 ARM(D)=0 


2010 NbÂraes=NbÂrses-1 

2020 CLS #2 

20230 COSUB 880 

2040 COTO 750 

2050 ‘ XÉÉÉÉEEEEEEEELEEEEEX 

2060 ‘ * RETRAIT DE POINTS * 

2070 LÉÉLELLLEEERELLEEEREX 

2080 FRC=FRC-FDM 

2090 GOTO 750 

2100 ‘ XEXAETEEEALEEEEELETELELLEEEX 

2110 ’ * RENCONTRE AVEC UN TRESOR * 

2120 ! XÉEEKELATELEEEEELELELELELELS 

2130 VTRES=INT(RND(1)45)+8 

2140 IF RIGHT$(TRES$ (VTRES),2)="ne" THEN Tf="e " E 
LSE T$=" ” 

2150 PRINT"Vous avez trouve un"T$:PRINT TRES$(VTRE 
S)" de valeur"VTRES 

2160 PRINT 

2170 SOUND 1,71,24,5:SOUND 1,60,48,5: SOUND 1,53,24 
,9: SOUND 1,47,98,5 

2180 SOUND 1,53,24,5:SOUND 1,60,24,5: SOUND 1,53,24 
,93: SOUND 1,60,24,5 

2190 SOUND 1,63,24,5: SOUND 1,71,120,5 


2200 ‘ LÉHREREIEEEEEEEETÉ 
2210 ‘ + ACHAT DU TRESOR ? À 
2220 FERTILE LIELELELERE 


2230 IF ROUTI=6 THEN PRINT'Mais vous avez deja les 


SIDISUTRES THEN PRINT'Mais vous possede 
resor de cette valeur *:PRINT:GOTO 750 


ts 
L 


JF Ed VTRES THEN PRINT'Mais ce tresor est tr 
er pour votre bourse*:PRINT:GOTO 750 
IXPUT Voulez-vous l'acheter ?  (C/N) "'DESI 


F DESIR$="O" OR DESIR#="o" THEN 2310 
F DESIRS="N" OR DESIR$="n" THEN 750 ELSE 228 


ÉXÉÉELEEEELEEEEEREEEEEEREEENLEE 
* CALCUL DE L'ACHAT DU TRESOR * 
RENNES 
=VTRES 


LE SORCI [ER + 
HÉEEÉÉELEEEEE 
contrez le sorcieret ii vous pr 
er vous offrant un  sortiiege.* 


RON + 981 


fi QURML isQ0Us 


16,5: SOUND 1,284 


*S:SOUND {,284 


SOUND 1,239,64,5:SOUND 1,21 
5) 
SOUNE 1,190,327,5:SOÛND 1,213 


en ri CN CD EN 


[a 
J 
9: S0UND 1,294,16,5:SOUND {,253 


ÉÉREHEREEFERENEE 
# CONSULTATION * 
HÉFEFEEEEEEEEEEE 
ceptez-vous 9 (O/N) *,REP$ 
$="0" OR REP$="o" THEN 2600 
RER#=°N" OR REB$=°n" THEN FOR ATT-0 TO 150 


TIOI EC 
à: Vis 


5:G0TC 1959 


AHPAEEEEE 
OSEO 


THEN 2799 
è s LR THEN 2830 
75 THEN 2980 
1090 THEN 2690 
G THEN ROUTISH:GOTC 26 


PRINT PRINT Le Sorcier vous retire un Tresor 
CLS #3: COSUE 889 


ECOTO 2960 


PARA] 

aes=Nbârnest! 

BE 906 

* Kbârses<t3 THEN PRINT :FR 


H INT Le Sorcier v 
cus fait donde l'Epee de feu grace 


a laquelle vou 


s pourrez tuerie Dragon" ELSE 2960 
2780 GOTO 2960 

2790 FRC=FRC+12 

2805 PRINT:PRINT" Le Sorcier vous offre unefiole q 
ui contient un ele-xir. Grace a cette potion vous 

gegnez {2 points de Force," 

2819 LOCATE #1,1,2:PRINT #1," "FRC 

2830 GCOTO 2960 

2835 PRINT:PRINT'Le Sorcier vous offre deuxarses d 
e votre choix" :PRINT 

2845 FOR Ez={ TO 2 

G IF F Néâraes?=12 THEN PRINT" Mais vous possede: 
deja (12 armes." :GOTO 2960 

ESS INPUT" Une are de quelle Puis-sance desirez 
-vous ?",VARM 

ETC IF VARM(Z OR VARM:11 THEN 2860 

Q SRM(PARAM)=VARA 

5 FAREN-DARAM+! 

Noârmes=NbAraes+i 

SUR 890: PRINT 

NEXT E 

GOTC 2960 

ÿ IF CRACGN={ THEN 2600 ELSE PRINT:PRINT'Le Sor 
r tue le Dragon avotre place, vous n'aurez donc 
5 a le faire" 

5 DRAGON=! 

2360 HÉXHÉENEENENEENENEEEEREEE 

2970 ‘ * COMBAT MONSTRE/DRAGON # 

2980 *  HÉEFEEENEEEEEEEEEEEEEEENE 

2990 FOR ATT=0 TO 3000:NEXT ATT:CLS 
3006 IF DRAGON=1 THEN 1050 

3010 I= =INT(RND(LI#21#1 

3020 IF !=1 THEN 1050 


| ENV 1,6, 4,9,9,-2,4,13,7,6,8,-1,5,3,7,8 
2640 EXV 2,12,- PSE 8,-1,5,5,7,7,8,-4,9 
2050 ENV 4,3,3,7,6,1,8,12,-3,4,7,3,3,3,-2,2 
3040 ENT 1,4,-1,8,5,7,9,4,6,7,5,-5,9,15,9,8 
3070 ENT 2,5,4,7,12,-1,9,6,1,8,8,-2,9,5,1,7 
3080 ENT 3,4,-1,9,6,-2,9,12,4,5,12,-1,4,5,1,3 
3090 SOUND i,478,600,7,1,1,23 
3100 SOUND 3,598,380,8,2,2,11 
3110 SOUND 4,899,603,9,3,3,31 


3:20 FOTO 3406 

1 OXXXETÉNENERAEREEEERÉELEREEXE 
Q ? # RENCONTRE AVEC UNE ARME * 
j ? HÉÉEEEAÉEEEEFÉRELEREEEEEREE 
} VAR NT{RND(1)#10)+2 
3179 IF RIGHTS (ARMS(VARM),1)="e" THEN Tf="e * ELGE 
3180 PRINT" Vous avez trouve un'"T$:PRINT ARM$(VARM 
}" de valeur"VARA 
3:90 PRINT 
3200 _SOUND 1,478,2 4,5: SOUND 1,638,12,5:SOUND 1,478 
deg ,426,48,5 

1,379,24, S:SOUND 1,478,12,5:SOUND 1,379 

1,319,48,5 
0 UND 1,264,12,5: SOUND 1,319,12,5:SOUND 1,284 
5: 30UND 1,253,12,5 
SOUND 1,239,48,5 
de LÉRÉELLELEEEENEEEEEEE 
RS * ACHAT DE L'ARME 7? *Ÿ 

és 


280 ÉÉÉELEEEREEREEERELERE 
3270 IF FRC£VARM THEN PRINT'"Vous ne pouvez pas ach 
eterceite arme":PRINT:GOTO 750 

3780 IF Nbârmesi=12 THEN FRINT"Vous avez deja 12 à 
*8es*:PRINT:GOTO 750 

INPUT" Voulez-vous l'acheter ?  (O/N) ":DESIR 


F DESIR$="0" CR DESIR#="0" THEN 3320 
F F DESIR4="N" OR DESIR$="n" THEN 790 ELSE 329 
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9390 ! 
déiv 


ERÉEEDOREEEEEEEEREEEEEEEEEEE 
JL DE L'ACHAT DE L'ARME * 


ÉREEEREEEEEEEEEEEREEE 


ÉRM(BARAM)=VARX 
FARAM=FARAN+: 
} Nbârmes-=Nbârmest! 


GOTC 750 

FORÉERETÉEEEEEL EEE EEE 

* COMBAT AVEC LE DRAGON * 

3475 ? RÉLEREEEEEEENENEEEEREEEEE 

3430 PRINT" Un aonstrueux Dragon de force 12 se d 
resse devant vous : sa bouche crache des Flammes 
. "PRINT:PRINT #5, "MONSTRE :":PRINT #5,"Un Dragon 
de Force 12° 

3440 INPUT"Voulez-vous le combattre ":REP$ 

3450 IF REP$="N" OR REP$="n" THEN 3900 

3460 IF REP#="0" OR REP$="o" THEN 3460 

3470 GOTO 2440 

3480 ?  HXEEÉEEEENEENEEERX 

3490 ‘ * CHOIX DE L'ARKE * 

3500 ‘  EXELEXITELELEEENETE 

3510 PRINT:PRINT ‘Avec quelle arme voulez- vous c 
cabattre S'INPUT " { Si vous n'avez pas d'a 
re tapez 0 }":VARM 

3520 FOR V=0 TO 120 

3530 IF ARM(V)=VARM OR VARM-0 THEN ABUS=0 : GOTO 3 
Sat 

3540 NEXT V 

3530 PRINT"Vous se possedez pas cette arme ":ABUS- 
ABUS+! 

3560 IF ABUS-10 THEN VARM=C:GOTO 3580 

3570 GOTO 3480 

3500 ?  #ÉFEEÉETEALEEEEEREE 

3590 ‘ * CALCUL DU COMBAT * 

3600 ‘  HÉEEFENETEEEEEEEEENS 

36109 PRINT:PRINT"Pour engager le combat tapez 5 
ur une touche*:PRINT 

3620 CA=CA+! 

3630 ÏF INKEY$€"" THEN 3650 

3430 COTO 3620 

3850 VCOME=12-VARM 

3660 IF VARM}12 THEN VCOME=0 

3870 PRINT'Le combat est de force"VCOMB 

3680 LOCATE #4,1,1:PRINT#4, "Des" 

3690 FOR A=! TO 20:SOUND 1,60,1,2 

3700 DES=INT(RND(1)#10)+2 

2710 DESS= (RIGHTS (STR$ (DES) ,2)) 

3720 LOCATE #4,1,2:PRINT #4,DE5$ 

3730 FOR E={ TO 100:NEXT B 

3740 NEXT A:SOUND 1,119,5,2 

3750 IF DES{VCOMB THEN 3900 

3760 IF DES}VCOMR THEN 3830 

3770 IF DES=VCOMB THEN 3780 


3780 : Étttettetet 
3790 ‘ * EX EQU0 * 
3800 ‘ Lésteittite 


3810 PRINT" Vous n'avez pas reussi a terrasser ce 
Dragon car les des ont fait":DES: "Vous allez de 
nouveau lui etre confronte” 

3820 GOTO 3449 


2830 ‘ ÉÉRLERERX 
3849 * GAGNE * 
3850 ÉLÉEELEN 


3860 DRAGON=1:CLS #5:FRC=FRC+VCOMB:LOCATE #1,1,2:P 
RINT #1," "FRC 

3870 PRINT'Vous etes sorti victorieuxde ce terribl 
e combat * 

3680 FOR B=1 TO 2000:NEXT B 

3890 CLS:IF ROUTI=4 THEN 4090 ELSE 2100 

3900 ’ Ditetsees 
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3910 ‘ * MORT * 
3920 ‘ FÉELEEEX 
3935 CLS'FBRINT" Helas, les monstres du Manoir d 
e Ecchebrune ont eu raison de votre courageet de v 
ütre temerite, vousenpechant ainsi de mener a bie 
n votre entreprise." 
3940 PRINT:PRINT* Vous n'avez pas reussi a tuer le 
Pere de la Belle Helene prisonniere de la Tour 
Noire, et a reunir les 5 Tresors du Chateau." 
3950 PRIXT:PRINT" D'autres Chevaliers vont essayer 
de delivrer ja Princesse mais votre prou-e55e 
restera celebre dans les villages de ce triste pay 
cg, *:PRINT 
3960 GOSUB 4050 
3970 SOUXD 1,25 
120,5 
3700 COEUR 4050 
3990 SCUND 1,253,24,5:SOUND 1,239,24,5: SOUND 1,213 
120,5: SOUND 1,190,24,5 
4060 SOUND 1,179,48,5:SOUND 1,190,24,5: SOUND 1,213 
:48,5:SOUND 1,239,24,5 
4910 SOUND 1,253,120,5 
4020 COEUR 4050 
4035 SOUND 1,239,24,5:SOUND 1,253,24,5:SOUND 1,284 
78,9 
4640 END 
4050 SOUND 1,284,24,5:SOUND 1,239,48,5:SOUND 1,284 
:24,9:SOUND 1,379,48,5 
4060 SOUND 1,284,24,5:SOUND 1,239,120,5:SOUND 1,21 
3,24,5:SOUND 1,190,24,5 
4070 SOUND 1,213,24,5:SOUND 1,239,24,5:SOUND 1,253 
:24,5 
4080 RETURN 
4090 ‘  #YXÉHHEREX 
400 * * CLOIRE Ÿ 
4119 ‘  HÉXEXELEEE 
4120 CLS'PRINT" Vous avez vaincu le Baronde Rocheb 
rune et reuni less Tresors, ce qui vous donne ] 
acces a la Tour Noire dans laquelle vous atten 
la Belle Helene.":PRINT 
4:30 IF INKEY$="" THEN 4130 ELSE CLS 
4140 PRINT" La Mort du Dragon marque la fin du sal 
efice que le Baron avait jete sur ce pays :":PRI 
NT 
4150 PRINT'Un vent violent chasse lesnuages noirs 
qui s’etaientamonceles et decouvre un ciel d'azur 
.": PRINT 
160 PRINT" Apres votre depart, les villageois vi 
rent le Cha- teau s'esbraser et quand la fumee 5e 
dissipa, ji! nerestait plus pierre sur pierre. P 
endant des siecles rien ne poussa en ces lieux." 
4179 PRINT 
4130 ENV 1,15,-1,5 


3,24,5:SOUND 1,284,24,5:SOUND 1,253 


4190 SOUND 1,478,32,15,1:SOUND 1,358,32,15,1 
4200 SOUND 1,358,16,15,1:SOUND 1,319,16,15,1 
4210 SOUND 1,284,32,15,1:SOUND 1,358,32,15,1 
4220 SOUND 1,239,64,15,1:SOUND 1,284,48,15,1 
4230 SOUND 1,284,16,15,1:SOUND 1,268,32,15,1 
4240 SOUND 1,239,16,15,1:SOUND 1,268,16,15,1 

250 SOUND 1,284,16,15,1:SOUND 1,268,16,15,1 
4260 SOUND 1,239,32,15,1:SOUND 1,319,16,15,1 
42170 SOUND 1,358,16,15,1:SOUND 1,319,16,15,1 
4280 SOUND 1,284,16,15,1:SOUND 1,319,32,15,1 
4290 SOUND :,478,32,15,1:SOUND 1,258,32,15,1 
4300 SOUND 1,358,16,15,1:SOUND 1,319,16,15,1 
4310 SOUND 1,284,32,15,1:SOUND 1,358,32,15,1 
4320 SOUND 1,239,64,15,1:SOUND 1,284,48,15,1 
4330 SOUND 1,284,16,15,1:SOUND 1,268,16,15,1 
4340 SOUND 1,299,16,15,1: SOUND 1,284,16,15,1 
4350 SCUND 1,268,16,15,1:SOUND 1,319,48,15,1 
4380 SOUND 1,358,16,15,1:SOUND 1,358,96,15,1 


LABELMATIC 


L:° rôle spécifique de ce pro- 
gramme de ‘‘qualité commer- 
ciale”” est d'imprimer des adres- 
ses sur des étiquettes adhésives 
en continu, pour envois en nom- 
bre (‘’MAILING””). Il possède tou- 
tes les fonctions d’un gestion- 
naire de fichiers classique, à 
savoir : mise à jour, recherche, tri, 
etc. Le fait qu'il soit 100 % Basic 
ne nuit pas à la rapidité qui 
demeure plus que suffisante. 

Il dispose en outre des caractè- 
res AZERTY accentués et de 
sécurités anti-plantage afin d’être 
confié à une personne sans for- 
mation informatique (vérifié). 
Côté imprimante, il faut un 
modèle 80 colonnes de marque 
quelconque chargé avec des éti- 
quettes en continu. Deux étiquet- 
tes par rangée de format norma- 
lisé 89 x 36, 102 x 36 ou 107 x 
36 mm. Ce format importe peu 
car le centrage de chaque rubri- 
que est automatique. Pour fixer 
les idées, disons le prix de revient 
moyen d’une étiquette adhésive 
est de l’ordre de 5 à 8 centimes 
TTC. 


LE PROGRAMME 


Ne sursautez pas à la vue de cer- 
tains caractères bizarres au sein 
de certains mots ; ils donneront 
à l'écran et sur imprimante des 
caractères accentués : a 
commercial = à ; anti-slash =cç : 
crochet ouvert + SHIFT (accol- 
lade ouverte)=é ; accollade 
fermée = è ; barre verticale = à :; 
crochet ouvert=°® : crochet 
fermé= 8 (définitions en GOSUB 
51000). 


LE MENU PRINCPAL (1000) 


Il -propose dix options. Après 
l'exécution de chacune d’entre 
elles, il Y a toujours retour à ce 
menu. 

Chaque option débute par une 
confirmation (O/N) pour les étour- 
dis. 

Le nombre de fiches en RAM 
(maxi = 200) apparaît en haut à 
droite de l’écran. 

Tous les ‘‘’questionnaires’” utili- 
sent le module 50000. Exemple, 
la ligne 1150 : TEX$ rassemble 
tous les symboles d'options. Le 
module 50000 fait quatre opéra- 
tions : 

— ilaffiche, en bas de l'écran, la 
liste des réponses possibles, 

- il transforme les réponses en 
majuscules, 

— si la réponse n'est pas dans 
TEX$, il émet un BIP sonore et 
repose la question, 

— il retourne au programme le 
numéro K de l'option choisie. 


NOTE : Nous vous conseillons 
d'enregistrer d'abord sur une cas- 
sette à part les modules 50000 
et 51000. Ils vous seront très uti- 
les pour d’autres programmes ; il 
suffit de les joindre au pro- 
gramme en cours par MERGE": ‘”’. 


LE FICHIER D'ADRESSES 


Il est mis dans un tableau DIM 
AD$(200,5). Cela nous procure 
une grande souplesse d'utilisa- 
tion (modification de fiches, 
recherche, tri, etc.). Seul défaut, 
ce grand tableau en RAM ralen- 
tit les opérations de sauvegarde 
sur cassette. Les ‘’rubriques'’’ ou 
‘’champs”” de 0 à 5 sont les sui- 
vantes : 


O=nom, exemple ‘Mr. Jean 
BERGER"’" (22 caractères) 
1=adresse 1, exemple ‘‘6 rue 
MACHIN'’ (22 caractères) 


2=adresse 2, lieu-dit, etc. (22 


Caractères) 


3 = code postal (5 caractères) 
4= ville (16 caractères) 

5= (facultatif) secteur de distribu- 
tion (3 caractères) mais peut être 
porté à 11 caractères pour le 
numéro de téléphone, pays étran- 
ger ou toute autre remarque. 
Nos longueurs maximales en 
caractères sont arbitraires 
(= minimum). Vous pouvez élar- 


gir. 


LA PAGE D'ECRAN 


Elle représente une seule fiche à 
la fois. Elle spécifie si vous êtes 
en saisie ou en vision, son 
numéro, le titre de chaque 
champ, sa longueur en pointillés 
(en saisie), et en bas, un menu de 
trois lettres. 

S=fiche suivante 

P=fiche précédente 

F=FIN (retour au menu). 

En saisie, une quatrième option 
‘*E’" (Erreur), qui efface la fiche 
à l'écran. 


NOTE : Grâce à la commande 
LINE INPUT au lieu de INPUT, on 
peut entrer des virgules et des 
guillemets. 


LA VISION 


La vision du fichier fiche par fiche 
peut se faire en donnant le 
numéro de fiche ou par recherche 
du nom, même une partie du 
nom. Ainsi, ‘"RCHAMB"" présen- 
tera la fiche ‘’ARCHAMBAULT""' ; 
‘’RAT”” peut présenter la fiche de 
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195 fiches 


Houveau fichier 


Chargenent-lecture 
Suite d'un fichier 


Modification 


num ich: 


chargé 


Au fichier 


Enregistrement sur cassette 


Lisionner ou rechercher 


impression en 
impression GLOBALECen 


TRI du 


M. GARRAT, puis celle de Mme. 
RAT, mais ‘’ RAT'’’ (un espace 
devant) ne conduira qu’à Mme. 
RAT. 


LE TRI 


Ou classement peut se faire 
d'après n'importe quel champ 
(classement alphabétique, ordre 
ASCII). Nous utilisons ici le ‘‘tri 
à bulle’”, la ‘‘bulle’” étant l'indice 
zéro du tableau DIM. Un tri sur un 
grand désordre peut demander 
près de cinq minutes, mais s’il 
s’agit de mettre en place quel- 
ques fiches nouvellement entrées 
(‘'suite de saisie’), cela ne prend 
que quelques secondes. 


LA SAUVEGARDE 
DU FICHIER 


Elle débute par le nombre de 
fiches en RAM (NF), le nom du 


fichier (à entrer au clavier) et. 


LABELS 


lignes) 


Fichier 


enfin le contenu des fiches. A la 
lecture, il n’est pas utile d'entrer 
ce nom (tapez ENTER). 


L'IMPRESSION 


Elle peut se faire sous deux 
modes. La ‘’'GLOBALE””' ou ligne 
à ligne : sur une ligne, on a le 
numéro puis le contenu de la 
fiche. C'est un listing personnel. 
Enfin, le ‘'LABEL’" (=étiquette) 
qui vous demande le numéro de 
départ et le numéro final. Pour 
éditer tout le fichier, tapez ‘1’ 
puis ‘‘D'’" (= dernier). 


TRES IMPORTANT : En lignes 
8100 et 9060, figure l'ordre 
CHR$(27)''R''CHR$(1) qui, sur 
les imprimantes de la marque 
EPSON (et assimilées), conduit 
aux caractères français (à, é, à, 
ù, ç,..). Consultez la notice de la 
vôtre afin de modifier ou confir- 
mer ce code. Si votre imprimante 


1-Mr DUFONT Jacques:15 rue AMFERE La VIGERIE 47123 St MARTIN #Secteur 12 
2-Mlle HEVRARD Kenée:8 Allée des LILAS 66274 MONTLOUIS *xSecteur 15 
Z-Mr ,Mme GALVIN Faul:Villa "LES CHENES" Lotissement LE HOIS 77857 TRAMIENS 


*#Secteur 8 


4-DUCHNOCH SARL:Service du Fersonnel 12-56 Ed MAGENTA 21897 SAINT FAISANT 


*Secteur 7 


Mr DUFONT Jacques 
15 rue AMFERE 
La VIGERIE 
471223 St MARTIN 


12 


Mr ,Mme GALVIN Faul 
Villa "LES CHENES" 
Lotissement LE EOIS 
77853 TRAMIENS 
8 
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Mile HEVRARD 
8 Allée des LILAS 


662374 MONTLOUIS 
15 


DUCHNOCF SARL 
Service du Fersonnel 
12-56 Ed MAGENTA 
21897 SAINT FAISANT 
7 


SAISIE FICHE NUMERO 105 


NOM: Mr,Mme Jean ROYER:::.. k 
ADRESSE 1: 15 rue Uictor HUGO...,+ 
ADRESSE £: La Sallette:.......... + 
CODE POST: 69549} 

VILLE: IRIGNY...-.:..... + 


SECTEUR: 4-.+4 


SUITE (S) , ERREUR (CE) , FIN (F) ? 


Réponse (S,E,F)—p 


n'a pas cette possibilité (par code 
ou par switches), supprimez 
cette commande. 

Le listing présenté fait 7391 
octets, soit 4 ‘’blocks’’. 


CONSEILS 
D'UTILISATION 


SUPPRESSION DE FICHE 
Appelez cette fiche par l'option 
modification ; elle apparaît vide. 
Mettez des ‘‘’zzzzz'’ dans chaque 
champ. Si vous refaites un tri, elle 
ira en bout de liste. Sinon, laissez- 
la en place, mais lors de la pro- 
chaine suite de saisie, recherchez 
par ‘‘zzz'', modification, et ‘‘’rem- 
plissage’’ par la nouvelle per- 
sonne. 


ADRESSES COMMERCIALES 


Utilisez le champ adresse 1 pour 
le nom du service, et ‘‘’adresse 2” 
pour l'adresse proprement dite. 


COMMANDE DU 
MAGNETO-CASSETTE 


Ilest normal que l'écran paraisse 
bloqué quelques instants 
(absence du curseur) avant et 
après un enregistrement de 
fichier. C'est l'AMSTRAD qui 
réorganise sa RAM, et le tableau 
DIM le gène un peu. Ce temps 
augmente avec la taille du fichier. 
Un bug de l’'AMSTRAD : au-delà 
de 90 fiches (environ), l'écran 
devrait afficher ‘’Saving - nom du 
fichier - Block 1’’. Or, à la place 
du nom attendu, apparaissent 
parfois des fragments de chaînes 
du fichier ! Sans importance, le 
nom réel que vous avez tapé 
(= FICH$) est une des données 
enregistrées. 


LA PLACE MEMOIRE 


200 fiches initialement prévues. 
Toutefois, il est plus pratique de 1000 pour revenir au pro- 


Avec.notre fichier personnel de  fractionner en fichiers de tailles gramme. 


112 fiches en RAM, il reste raisonnables. 


25574 octets disponibles ! On Pour savoir ce qui vous reste, 
doit donc pouvoir dépasser les tapez ‘‘F’’ au menu principal, puis Michel ARCHAMBAULT 


10 'LABEL-MATIC - Amstrad - M.A, 1995 

100 MODE O:BORDER 14: INK O,1:INK 1,24:PAPER L1:CLS 
110 LOCATE L,T:FEN {2:PRINT''LABE L--M AT I C" 
120 LOCATE !,13:PEN 4'PRINT "Editeur d'Etiquettes 
130 LOCATE 2,21:PEN O:PRINT "M.Achambauit-1985" 
140 FOR 1=1 TO 3000:NEXT 

200 MODE !'BORDER 2:FAPER OPEN CLS 

210 DIM AD$(200,5)DEFINT À-£ 

300 GOSUE 31000 

1000 "MENU PRINCIPAL 

1010 CLÉ:INK O,1:INK 1,24 

1020 LOCATE 17,2:PEN 3:PRINT "M E N U":PEN 2: LOCAT 

E 29,2:PRINT NF:"fiches" PEN 1 

1930 LOCATE 6,4:PRINT °N = Nouveau fichier" 

1040 LOCATE 6,6: PRINT "C = Chargement-lecture d'un 
fichier” 

1090 LOCATE 6,8:PRINT "S = Suite d'un fichier char 

g{" 

“a LOCATE 6,10:PRINT "M 


CLS LI 


Modification du fichie 


n 


1070 LOCATE 6,12:PRINT "E = Enregistrement sur cas 
sette" 

1080 LOCATE &,14 PRINT "V 
r" 

1090 LOCATE 6,16: PRINT °L 
1100 LOCATE 6,18:PRINT "G 
lignes)" 

1105 LOCATE 6,20: PRINT "T = TRI du Fichier" 

1110 LOCATE 6,22: PRINT ‘F = Fin 

1150 TEX$="NOSMEVLOTF" :COSUE 50900 

1160 ON K GOTO 2009,3009,4009,5000,6090,7000,8990, 
9000,12000,15060 

1170 GOTO 1009 

1500 ‘FINAL 

1510 CLE'LOCATE 10,12:PRINT "VOUS POUVEZ ETEINDRE. 
"'PRINT:PRINT 


Visionner ou recherche 


impression en LABELE* 
ispression GLOBALE {en 


1520 END 
2000 * NOUVEAU FICHIER 

2016 CLS 

2020 LOCATE 6,4:PRINT "CREATION D'UN NOUVEAU FICHI 
ER:" 


2030 LOCATE 12,7:PRINT "{ 200 fiches max! }" 

2040 LOCATE 3,12:PRINT "Nous effañons Île Fichier e 
n M(aoire," 

2050 LOCATE 15,14:PRINT "D'ACCORD ?" 

2040 TEX$="ON":COSUB 50000 

2070 IF K=2 THEN 1000 

2080 N=1:NF=0:GOSUB 10000 

2090 NF=N:GOTO 1000 

3006 ‘ CHARGEMENT FICHIER 

3010 CLS:LOCATE 3,3 PRINT "LECTURE D'UN FICHIER SU 
R CASSETTE: * 

3020 LOCATE 16,10:PRINT "D'ACCORD 1° 

3030 TEX#="ON" :COSUE 50000 

3040 IF K=2 THEN 1000 

2056 CLS'LOCATE 12,5:LINE INPUT "NOM OÙ FICHIER: ” 
,FICH$ 

30660 LOCATE 3,8:PRINT "Dls que la cassette est pos 
itionnte" 

2070 LOCATE {1,10:PRINT "Frescez une Touche." 

3080 WHILE INKEY$="": VEND 

3090 OPENIN FICH$ 

3100 INPUT 49,NF,FICHS:FOR I=1 TO NF:FOR J=0 TO 5: 


Fimé rs chez 4 
E Z,4:PRINT “OUITE DE SAISIE DU FICHIER 


ne ACCCRG Me TETéC NON C0 
D'ACCORD 9": TEXS="ON":G0S 


1 Ed cri 


CREDHENT CUP PACE 
ITREMENT OUR CACS 


NT "VISION ou RECHERCHE: 
TOUS depuis le dihut.* 
= Kuatro." 

R = Recherche d'un Nom 


4H 
US 
me 
73 
1 


12,17: LINE 1KP FNOM cherch ("NS 


UT 


Are NA TR AG ARE 
BD$IN.C),NM#)0 THEN COSUR 11000 


NPRESS ON 


IEN 1500 


PRINT FRE (‘* ’’}, et enfin GOTO 


8040 LOCATE 12,8: INPUT "NUMERO DEPART: ",ND4:ND-VA 
LIND$):IF ND=0 OR ND>-NF THEN PRINT CHR#!7):COTO 8 
040 

8650 LOCATE 14,12:PRINT "{ D pour dernier }" 

8060 LOCATE 13,10:INPUT "NUMERO FINAL: ",NA$:IF UP 
PER$(NA$)="D" THEN NA=NF:GOTO 8080 

8070 NA=VAL(NA$):1F NA€=ND OR NA>NF THEN 8040 

8080 LOCATE 10,17:PRINT "Vlrifiez l'imprimante, "iL 
OCATE 9,19:PRINT Ju RoRsse une Touche." 

8090 WHILE INKEY$="":4 

8:00 PRINT #9,CHR$(27)"R"CHR# (1): 

6120 FOR I=ND TO NA STEF 2 

8:30 PRINT #8,SPC((37-LEN(AD#(1,0))1)/2):AD$#(1,0):S 
FCC(43-LEN(AD#(1,0)})/2):SPC((40-LEN(AD#(1+1,0))}/ 
2):AD$(I+1,0) 

8140 PRINT #8,SPC((37-LENCAD#(1,1)))/2):AD#{T,1):S 
PO((43-LEN(AD#(1,1)))/2):SPC((40-LEN(AD#(I+1,1))}/ 
2):AD$(I+1,1) 

8150 PRINT #8,SPC((37-LEN(AD#(1,2)))/2):AD#{1,2):S 
PC((43-LEN(AD$(1,2)})/2}:SPC((40-LEN(AD#(I+#1,2}))/ 
2):AD$(I+1,2) 

8160 PRINT #8,SPC((36-LEN(AD$(1,3))-LEN(AD#(1,4)}) 
f2):AD#(1,4):" "'AD$(I,4):SPC((42-LEN(AD#(1,3))-LE 
NUAD$(1,4)))/2):SPCC(4IÎ-LEN(ADS(I+1,3))-LEN(ADS(I+ 
1,4)))/2):AD$(I+#1,3):" "'AD$(I+1,4) 

8170 PRINT #8,SPC(17):AD$(1,5):SPC(42):AD#(I+1,5) 
8180 FOR J=1 TO 4:PRINT #9:NEXT 

8190 NEXT 

8200 GOTO 1000 

9000 ‘ IMPRESSION GLOBALE 

9010 CLS:LOCATE 12,5:PRINT "IMPRESSION GLOBALE:" 
9020 LOCATE 12,7:FRINT “{ ligne € ligne )":LOCATE 
16,11:PRINT "D'ACCORD ?" 

9030 TEX$="ON":GOSUB 50000:1F K=2 THEN 1000 

9040 CLS:LOCATE 10,5:PRINT "Pr(parez l'Imprimante, 
LOCATE 9,10:PRINT "puis pressez une Touche." 
9050 WHILE INKEY$="":WEND 

9060 PRINT #8,CHR$(27)"R"CHR# (1): SPC((80-LEN(FICH# 
))/2):FICH$ 

9070 PRINT #8:FOR I=1 TO NF 

9090 PRINT #8,USING "###": I: :PRINT#8,"-":AD#(I,0): 
Fi" AD#(1,1):" "'AD$(1,2):" "'AD$(1,3):" "'AD$(I,4 
):" *Secteur "'AD$(1,5):NEXT 

9100 PRINT #8,STRING$#(78," "). 

9110 GOTO 1000 

10000 ‘ SAISIE 

10010 CLS:INK 0,13:INK 1,0 

10020 LOCATE 10,2:PRINT "SAISIE FICHE NUMERO'":N 
10030 LOCATE 13,5:PRINT STRING$(22,CHR#(144)):CHRt 
(151) 

10040 LOCATE 8,5:LINE INPUT "NOM: ",AD#iN,0) 

10050 IF LEN(AD$(N,0))1}22 THEN AD$(N,0)=LEFT$ (ADS ( 
N,0),22):PRINT CHR#(7) 

10060 LOCATE 13,7:PRINT STRING$(22,CHR$(144)):CHR4 
(151) 

10070 LOCATE 2,7:LINE INPUT "ADRESSE 1: ",AD$(N,1) 
10080 IF LEN(AD$(N,1))>22 THEN AD$(N,1)=LEFT# (AD#( 
N,1),22) PRINT CHR$(7) 

10090 LOCATE 13,9:PRINT STRING$(22,CHR$(144)):CHR$ 
(151) 

10100 LOCATE 2,9:LINE INPUT "ADRESSE 2: ",ADS(N,2) 
10110 IF LEN(AD$(N,2))}22 THEN AD$(N,2)=LEFTS$ (AD$( 
N,2),22):PRINT CHR$(7) 

10120 LOCATE 13,11:PRINT STRING$(5,CHR$(144)):CHR4 
(151) 

10130 LOCATE 2,11:INPUT "CODE POST: ",AD$(N,3) 
10140 LOCATE 13,13:PRINT STRING$(16,CHR$(144)):CHR 
$(151) 

10150 LOCATE 6,13:LINE INPUT “VILLE: ",AD$(N,4) 
10160 IF LEN(AD#(N,4))>18 THEN AD$(N,4)=LEFTS (ADS ( 
N,4),16):PRINT CHR$(7) 
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19176 LOCATE {3,15 PRINT STRINC#(3,CHR#(144)):CHR4 


13: INPUT "SECTEUR: ",AD$IN,5) 
2,19:PRINT "EUITE (5) , ERREUR (E! , 


OSUB 50900 
X N=N+{:COTC 10000 
IEN 10000 


22 PRINT *YISION FICHE NUMERO":N 
S:PRINT "NOM: ":AD$(N,0) 

T'PRINT "ADRESSE {: "'AD$IN,1) 
SPRINT "ADRESSE 2: "'AD#(N,2) 


4 20 LX E | 
1:030 LOCATE B, 
1:940 LOCATE 2, 
11050 LOCATE 2, 
11060 LOCATE 2,1 

ô 

4 

8 


1:PRINT “CODE PGST: "'AD$(N,3) 
313: PRINT "VILLE: "'AD$(N,4) 
; 


11075 LOCATE 


11080 


OCATE 4,15 PRINT "SECTEUR: "'AD#(N,5) 


8,19:PRINT "Pricident , Suivant , Fin 


11100 TEX#="FSF":COSUB 50000:0N K GOTO 11200,11900 


11200 N=N-1:IF N=0 THEN PRINT CHR#(7) Ni 
11210 COTO 11010 

11200 K= N+1: IF NÈNF THEN PRINT CHR#(7) :N=NF 
i13 19 GOTS !1010 


t201! LOCATE 13,4:PRINT "TRI OÙ FICHIER:": ‘LOCA 
6,!1:PRINT "D'ACCORD 2": TEX4="ON" :GOSUB 50000 
THEN 1000 
920 CLE'LOCATE 13,4:PRINT "CRITERE DU TRI:":LOCA 
5,8: PRINT °N = NOM" 

39 LOCATE S,I0PRINT "A = ADRESSE 1':LOCATE 9,1 
2 PRINT 'L = Lieu-dit {adresse 2}":LOCATE 9,14:PRI 
NT °C = Code postal" 
12060 LOCATE 9 LE PRINT "Y = VILLE" :LOCATE 9,18:FR 
INT *S = SECTEUR" 
12050 TEX$="NALCVS":COSUR 50000!:T=K-j'LOCATE 186,21 
PRINT "Patience..." 
12066 F=0:FOR J=1 TO NF 
12070 IF AD$(J,T)>=AD$(J-1,T) THEN 12090 
12089 FOR K=0 TO S:ADS(0,R)=AD#(T,R) :AD#{T,R)=AD$( 
J-1,R):AD${T-{,R)=AD#(O,R):NEXT'F=i 
12090 MEXT 
12100 IF F=1 THEN 12060 
12110 COTO 1000 
59000 ‘REPONGE À UN MENU 
20010 LT=LEN(TEXS):Ré="" 
ae LOCATE {5-LT, 24: PRINT "Rponse (": 


50040 PRINT MIDSCTERS, 1,132", "!NEXT 
50050 PRINT RICHTS(TEXS,1): QLE :CHR$(154):CHR$ (243) 
:CHR$(207) 
50060 TEX$=UPPERS(TEX$) 
30070 WHILE R$="":R#=INKEY# : WEND 
50080 Ré=UPPERS (RS) :K=INSTR(TEXS,R4) 
30090 IF K=Q THEN Rt="";PRINT CHR#(7)::GOTO 50070 
20190 RETURN 
3:000 ‘ AZERTY ACCENTUE 
2:010 SYMRCL AFTER 7 
31020 SYMEOL 64,96,48,120,12,124,204,118,0 
21930 SYMEOL 91,0,56,108,56,0,0,0,0 
31040 SYMBOL 92,0,0,60,1902,94,102,40,24 
51050 SYMBOL 93,60,96,60,102,60,6,60,0 
51260 SYHBOL 173,12,24,60,192,126,96,80,0 
51070 SYMEOL 134,46,24,107,102,102,102,62,0 
31080 EYMEOL 125,48,24,60,102,126,96,60,0 
51100 je 
65335 ‘FIN DE LISTINC 


MIRAGES 


Denis BOURQUIN 


oici deux petits programmes 

écrits en assembleur que de 
nombreux possesseurs du livre 
‘AMSTRAD CPC 464 FIRM- 
WARE”"' auraient pu écrire, tant 
les renseignements contenus 

. dans cet ouvrage sont précieux. 

Le premier permet de charger et 
de lister un programme écrit en 
Basic, et ensuite de le sauvegar- 
der avec la commande de protec- 
tion (fichier apparaissant dans un 
CAT avec le type %). 
Le programme Basic chargé par 
ce programme peut être exécuté, 
modifié, listé ou sauvegardé avec 
ou sans protection. 
Nous allons analyser le listing de 
ce chargeur. 
Ce programme fait appel aux dif- 
férentes routines de la ROM 
AMSTRAD par la zone des 
JUMP. 
Notons tout de suite que volon- 
tairement le pointeur de pile n’est 
pas initialisé ; la pile utilisée sera 
donc celle du Basic. 


CINIT : est le sous-programme 
d'initialisation de la cassette. 


CIOPEN : est le sous-programme 
d'ouverture d’un fichier cassette 
en lecture. La paire de registres 
H et L du Z80 pointe la zone où 
se trouve le nom du fichier à lire ; 
dans notre exemple, nous ne 
mettons aucun nom, et par 
conséquent, l'AMSTRAD char- 
gera le premier fichier rencontré 
sur la cassette (notons que ces 
mêmes routines fonctionnent 
avec les disques, mais là, il est 
impératif de mettre le nom du 
fichier à lire). 

La paire de registre DE pointe une 
zone RAM de 2 k-octets qui ser- 


vira de buffer pour la lecture des 
blocs sur la cassette. Dans notre 
programme, le buffer est à 
l'adresse 9000 H et le registre B 
contient la longueur du nom du 
fichier à lire (ici zéro). 

A la sortie de la routine CIOPEN, 
les registres H et L contiennent 
l'adresse de la zone mémoire où 
se trouve l'en-tête du fichier. 
Cette zone mémoire se décom- 
pose ainsi pour les octets qui 
nous intéressent : 

— octets O à 15 : nom du fichier, 
— octets 21 et 22 : adresse de 
chargement, 

— octet 18 : type de fichier (0 : 
Basic non protégé, 1 : Basic pro- 
tégé, 2 : binaire, 6 : ASCII), 

— octets 24 et 25 : longueur 
totale du fichier, 

— octets 26 et 27 : adresse 
d'exécution pour les programmes 
en code machine. 

Les registres DE contiennent 
l'adresse de chargement, les 
registres BC contiennent la lon- 
gueur totale du fichier. Le regis- 
tre À contient le type du fichier 
(ces trois informations se trou- 
vent aussi dans la zone en-tête 
pointée par HL). 

Dans le programme, nous sauve- 
garderons ces valeurs dans les 
adresses 9900 H et suivantes, 
mais ceci n’est pas utile, ces 
valeurs pouvant être récupérées 


à travers la zone en-tête, et dans. 
ce cas, seule la paire de registres : 


HL devra être sauvegardée dans 
la pile et récupérée pour le trai- 
tement après CIDIR. 

Si l'opération d'ouverture s'est 
bien déroulée, le drapeau de 
CARRY est à 1, d'o' le test qui 
renvoie en ABAN en cas d'erreur 
de lecture. 

Les contenus des registres DE et 
HL sont échangés pour entrer 
dans la routine CIDIR qui effec- 


tue la suite de la lecture du fichier 
avec, comme paramètre d’en- 
trée, l'adresse de stockage du 
fichier contenu dans les registres 
HL. 
Aucun test n'est fait sur le type 
de fichier rencontré, nous suppo- 
sons que la cassette a été posi- 
tionnée en début d’un fichier 
Basic protégé. 
Nous récupérerons ensuite 
l'adresse de début stockée en 
9902 H, et la longueur du fichier 
stocké en 9904 ; nous calculons 
l'adresse de fin de programme 
que nous implantons dans la zone 
mémoire système allant de 
AE83 H à AE88 H (lignes 26 à 31 
du programme). Cette opération 
met à jour les pointeurs Basic ; 
notons qu’elle n'est peut-être pas 
optimale, l’auteur ayant procédé 
par tâtonnements. À la fin, le pro- 
gramme retourne au Basic. 
Ce programme est très court et 
peut donc être réassemblé à la 
main pour être relogé dans l’es- 
pace mémoire convenant le 
mieux à chacun. 
Il a été mis dans le haut de la 
mémoire car, les programmes 
Basic commençant à l'adresse 
170H, il permet donc de lister des 
programmes de plus de 35 k- 
octets. 
Voici un petit programme Basic 
très court pour ceux qui n'ont pas 
d'assembleur, qui chargera et 
sauvegardera sur cassette le pro- 
gramme n° 1. 

10 AD =&9800 

20 FOR 1=0 TO &45 

30 READ A:POKE AD +I,A 

40 NEXT | 

50 DATA &C3, &06, &98, 
&OD 

60 DATA … 

70 DATA … 
100 SAVE ‘’PROG1'',B,&9800, 
&46 
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Pour les DATA, reprendre le lis- 
ting assembleur. 

Le programme ainsi sauvegardé 
pourra être chargé par la 
commande : 

MEMORY &97FF:LOAD 
‘’PROG1* 

et il sera appelé par CALL &9800. 


Le programme n° 2 est la conti- 
nuité du n° 1. 

Le programme n° 2 lit un fichier 
sur la cassette et le sauvegarde 
sur une autre cassette en conser- 
vant le type du fichier (protégé ou 
non) et son nom. 

Lorsque le message ‘‘Press PLAY 
then any key’ apparaît, introduire 
la cassette source et effectuer la 
lecture. 


Dès l'apparition du message 
‘‘’Press REC and PLAY then any 
key'”, insérer une cassette vierge 
et effectuer la copie. 

La partie sauvegarde commence 
au label ENR. 

Au départ, on récupère l'adresse 
de la zone en-tête qui avait été 
sauvegardée en 9900 H, puis on 
recherche la longueur du nom 
pour initialiser le registre B avec 
cette valeur. 


COOPEN : ouvre un fichier en 
écriture avec les registres HL qui 
pointent le nom du fichier. 

Les registres DE pointent le buf- 
fer d’ecriture et le registre B 
contient la longueur du nom du 
fichier. 


CODIR : stocke le fichier sur la 
cassette avec utilisation des 
registres suivants : 

— HL contiennent l'adresse de 
début, 

— DE contiennent la longueur, 
— BC contiennent l'adresse 
d'exécution si elle existe, 

— À contient le type. 

L'adresse d'exécution a été récu- 
pérée dans la zone en-tête. 
Pour ceux qui n'ont pas d’assem- 
bleur, ie programme Basic précé- 
dent est valable ; il suffit de rem- 
placer la ligne 20 par 20 FOR 1=0 
TO & 76 et les lignes de DATA 
par le nouveau code machine. En 
modifiant la ligne 100, vous pour- 
rez sauvegarder le programme 
sous le nom que vous souhaitez. 


CRS  9800H 


2 LOAD 9800CH 

% CIDIR: EQU OBC85H 

4 CINIT: EQU  OBC6SH 

= CIQPEN: EaL OBC77H 

& CICLOS Eau  OBC7AH 

Fd TIABAN: EQU ORC7DH 

9 9200 C70698 JP DERBUT 

19 

{! 9e03 97 PURE DE ODH 

17 9904 0090 CRELFF DW 7000H 

17 

14 90906 C7 DEBUT: CF 

15 9807 CD6SRC CALL CINIT 

16 PACA 210792 LD HL,BUFF 

17 980D 010000 LD BC,CQ 

12 9210 EDSECAa92e LD DE, (CREUFF) 
19 oR2i4 cn7?7BC CALL CIOCPFEN 

2Q 9217 220099 LD {79700H),HL 
R1 SCA EDS30299 LD {9902H),DE 
22 PRIE ED470497? LD (99044), BC 
27 9822 ER X DE,HL 

22 992% Z3C1A IR NC, APAN 

25 9225 CD8SRC CALL CIDIR 

T6 932€ 2A0299 LD HL, (79902H) 
27 9S2B EDS2O4SO Le DE, (9904H) 
22 92e 19 ADD HL,DE 

27 9230 2283A€ LD (OAE85H) ,HL 
79 92353 2285AE LD (OAESSH) ,HL 
T1 978356 2287AE LD (OAES7H) ,HL 
32 98929 CD?7AEC CALL CICLOSE 

SZ PC c:4298 JP CONT 
Z4 9e3r CD?7DRC ABAR: CALE CIABAN 

35 98242 ZTiFSEF CONT: LD 5SP,O0BFFS8H 
36 F24s C9 RET 
Listing 1 BA END 
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cisting 2 


VON UBRUNr- 


9800 


9805 
9804 


9806 
9807 
980A 
780D 
9810 
9814 
9817 
981tA 
981E 
9822 
98235 
9825 
9828 
982A 
982D 
9830 
9833 
9836 
9837 
983A 
9853D 
983F 
5840 
9841 
9842 
9844 
9846 
9847 
9848 
984B 
984F 
9852 
9855 
9859 
985D 
9860 
9863 
9866 
9869 
986B 
986E 
9871 
9274 


C30698 


OD 
0090 


37 
CD65BC 
210398 
010000 
EDS5B0498 
CD/77BC 
220099 
EDS30299 
ED430499 
EB 

300B 
CD83BC 
3006 
CD/7ABC 
C33798 
CD/7DBC 
S1F8BF 
C? 
CD65BC 
2A0099 
OE00 

?7E 

23 

oc 

FEOO 
20F9 

OD 

41 
2A0099 
EDSB0498 
CD8CBC 
240299 
EDS5SB0499 
DD2A0099 
DD4E1A 
DD461B 
340699 
CD98BC 
3006 
CD8FBC 
C33398 
CD92BC 
C33398 


CIDIR: 
CINIT: 
CIOPEN: 
CICLOSE: 
CIABAN: 
COOPEN: 
CODIR: 
COABAN: 
COCLOSE: 


BUFF: 
CRBUFF: 


DEBUT: 


ABAN : 
CONT: 
ENR: 


E1: 


WABAN: 


ORG 
LOAD 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


JP 


DB 
DW 


SCF 
CALL 
LD 
LD 
LD 
CALL 
LD 
LD 
LD 
EX 
JR 
CALL 
JR . 
CALL 
JP 
CALL 
LD 
RET 
CALL 
LD 
LD 


LD 


INC 
INC 
CP 
JR 
DEC 
LD 
LD 
LD 
CALL 
LD 
LD 
LD 
LD 
LD 
LD 
CALL 
JR 
CALL 
JP 
CALL 
JP 


END 


9800H 

7800H 

OBC83H 
OBC6SH 
OBC77H 
OBC7AH 
OBC7DH 
OBC8CH 
OBC978H 
OBC972H 
OBC8FH 


DEBUT 


ODH 
7000H 


CINIT 

HL, BUFF 
BC,0 

DE, (CRBUFF) 
CIOPEN 
(9900H) ,HL 
(9902H) ,DE 
(9904H) , BC 
DE, HL 

NC, ABAN 
CIDIR 

NC, ABAN 
CICLOSE 
ENR 

CIABAN 
SP,O0BFF8H 


CINIT 

HL, (9900H) 
C,O 

A, CHL) 

HL 

re 

) 

NZ, E1 

c 

B,C 

HL, (9900H) 
DE, (CRBUFF) 
COOPEN 

HL, (9902H) 
DE, (9904H) 
IX, (9900H) 
C, (IX+26) 
B, (IX+27) 
A, (9706H) 
CODIR 

NC, WABAN 
COCLOSE 
CONT 
COABAN 
CONT 
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LA MEMOIRE D’ ECRAN 


Extrait du livre MIEUX PROGRAMMER SUR 
AMSTRAD” 


L:° notions exposées dans cet 
article ne sont pas du tout 
indispensables pour devenir un 
bon progammeur en Basic ; elles 
permettent d'aller plus loin en tri- 
turant la zone mémoire de l'écran 
par des PEEK ou des POKE. Pour 
faire quoi ? 

Tout d’abord faire des program- 
mes de ‘’HARD COPY”’ qui exé- 
cutent sur imprimante une sorte 
de photocopie de l'écran en 
cours, surtout utile pour les gra- 
phismes (vous pourrez utiliser ces 
programmes même si vous ne 
comprenez pas leurs fonctionne- 
ments). Avec ces notions, et de 
la patience, vous pourrez aussi 
créer des effets colorés inacces- 
sibles par les seules fonctions 
Basic. 


GENERALITES 
SUR LA MEMOIRE 


Le CPC 464, comme la plupart 
des micro-ordinateurs de moins 
de 20 000 FF, utilise un micro- 
processeur ‘‘8 bits’” (un octet). 
Pour aller chercher un octet en 
mémoire, il faut que ce dernier ait 
une adresse. Un octet peut pren- 
dre 256 valeurs possibles 
(256=2®). Pour les adresses, 
disons un octet pour les ‘’colon- 
nes’’ et un octet pour les 
‘lignes’ d’un ‘‘tableau d'adres- 
ses’”, donc 256 x 256=-65536 
‘’cases mémoire’’, qu’on numé- 
roté de O à 65535. C'est ce 
qu'on appelle 64 k-octets car le 
‘’kilo-octet”’ vaut en réalité 1024 
octets. Donc 64 k-o est le maxi- 
mum pour un micro 8 bits. 

Il faut les partager entre la ROM 
(le Basic résident) et la RAM (pro- 
grammes + variables en cours + 
les points lumineux envoyés à 
l'écran). Avec un Basic de 
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32 k-0, il ne resterait que 32 k-o 
pour la RAM, d’où vingt et quel- 
ques k-o disponibles pour pro- 
grammes plus fichiers, c'est ce 
qui se passe avec les MSX et bien 
d'autres. Nous, nous avons 
32 k-o de Basic, 43 k-o disponi- 
bles + 16 k-o réservés à l'écran ! 
La raison de ce ‘’miracle’’ est que 
l'AMSTRAD ‘recharge et dé- 
charge” la portion de la ROM 
dont il a besoin (c’est une vue 
d'esprit). De ce fait, une large 
partie de la RAM est plutôt 
‘’mouvante’”, ce qui va donner 


‘bien du plaisir aux amateurs de 


PEEK et de POKE... 

La partie mémoire écran occupe 
une zone fixe, de 49152 à 
65487, mais le fait que l’on 
puisse mélanger texte et gra- 
phisme, et ce en trois MODES, 
fait que sa structure est d’une 
extrême complexité inouie 
(même principe que sur les 
APPLE Il, mais en pire). C'est ce 
qui explique que l'affichage des 
caractères est assez lent, exem- 
ple, quand on fait LIST sur un 
long programme. 

Dans le manuel, les adresses sont 
indiquées en hexadécimal (pré- 
fixe & et quatre caractères). Il est 
pratique de savoir faire les 
conversions hexadécimal-décimal 
dans les deux sens (Note : le pré- 
fixe hexadécimal ne signifie pas 
‘six’ mais ‘’seize’’). 


LES CONVERSIONS 
HEXA/DECIMAL/BINAIRE 


En binaire, on a deux symboles 1 
et O, en décimal on a dix symbo- 
les O à 9, en hexa on en a seize, 
0à9 + A,B,C,D,EeæF 
(&F = 15; &A = 10). 

On représente la valeur d’un 
octet par deux symboles hexa, 


ainsi & FA=(256 x 15) + 10 = 
250. Il suffit de taper PRINT &FA 
et 250 apparaît à l'écran. De 
même, &FF=255, c'est bien le 
maximum pour un octet. 

Une adresse tient sur deux 
octets, exemple &AFC8. Vous ne 
pouvez pas faire PRINT &AFC8 
car l'AMSTRAD ne sait pas faire 
la conversion sur plus d’un octet, 
vous êtes obligé de décomposer : 


PRINT &AF +256 + &C8 


et la réponse apparaît : 45000. 
L'opération inverse est beaucoup 
plus facile : 


PRINT HEXS$ (45000) 


l'écran répond AFCB8 (le & est 
sous-entendu). 

Pour traduire une longue suite de 
valeurs hexa en décimal, vous 
gagnerez du temps en utilisant ce 
très court programme du listing 
n°1: 


Passons à la représentation 
binaire d’un nombre. Tapez, par 
exemple : PRINT BIN$(45956), 
vous obtenez une suite de 16 bits 
1 et O. Essayez maintenant 
PRINT BIN$(3), vous obtenez 
“1” (c'est une chaîne) ; avec 
PRINT BIN$ (3,16), vous avez 14 
zéros suivis de “11”. 

Gare à l'opération inverse par &X, 
elle traduit cette ‘‘image binaire” 
en un nombre dit entier, c'est-à- 
dire compris entre —- 327869 et 
+32767 ! Un zéro suvi de quinze 
1 donne 32767, tandis que 1 
suivi de quinze zéros donne 
— 32768. 

Heureusement, vous n'avez pas 
à vous en préoccuper car dans la 
pratique les seules images binai- 
res qui nous intéressent sont sur 
un octet, donc de 1 à 255. 


LE PLAN 
MEMOIRE DE L'ECRAN 


Nous y voilà ! 

Deux cent lignes horizontales de 
80 octets chacune. Dans une 
ligne, les numéros d'octets se 
suivent de gauche à droite. Pre- 
nons le cas le plus simple, celui 
du MODE 2 : chaque bit repré- 
sente un ‘‘pixel”’ ou point à 
l'écran, ainsi 255 fait un tiret 
continu (huit bits 1). La ligne en 
haut de l'écran va de 49152 à 
49231, soit 80 x 8=640 points 
(ce qui explique qu'en coordon- 
nées graphiques l'échelle horizon- 
tale aille de 1 à 640). 

Hélas, l'octet suivant, le 49232, 
n'est pas au départ de la 
deuxième ligne mais huit lignes 
plus bas ! Et ainsi de suite au pas 
de 8 lignes. Après un premier 
‘passage’ de 25 lignes espacées 
de 8, commence le deuxième 
passages sur les lignes du des- 
sous. Pour tout comprendre, 
essayez le programme du listing 
n° 2. 


Un joli store vénitien ! 

Les figures 1 et 2 vous donnent 
le plan des adresses d'écran. 
Vous constatez qu'entre deux 
‘‘tirets’’ (deux octets) situés à 
l'écran, l’un en-dessous de l’au- 
tre, il y a un écart de 2048 octets 
(=2 k-octets), qu'entre deux 
lignes d'un même ‘‘passage’ 
(donc espacées de 8 lignes 
d'écran), il y a un écart de 14336 
octets. 

A présent, modifiez la ligne 110 
en mettant MODE 1. Surprise ! 
Les traits sont rouges (= PEN 3). 
En ligne 110, mettez MODE 0 : 
les traits clignotent én rose/bleu 
ciel (= PEN 15). Nous abordons 
alors le code des couleurs en 
fonction du MODE. 


LE CODAGE 
DES COULEURS 


En MODE 2, rien de plus simple : 
comme il n'y a que deux couleurs 
possibles, un bit 1 fait un pixel 
PEN, un bit O un pixel PAPER 
(Pixel est la contraction anglaise 
de PICTURAL ELEMENT). 


Lancez ce programme du listing 
n° 3 qui va dessiner en 0 et 1 les 
images binaires des quatre pre- 
miers caractères sur un écran en 
MODE 2. 


Le résultat est spectaculaire. On 
y retrouve les compositions illus- 
trées dans le manuel AMSTRAD 
page A3.2 et suivantes. 

A présent, modifions la ligne 210 


afin d’avoir MODE 1 (ou faites. 


MODE 1:RUN 220). Oh ! Que 
c'est vilain ! Sur chaque ‘‘pavé”’, 
on n’a qu'une moitié de chaque 
caractère. || faudrait accoller les 
moitiés gauches des pavés pour 
reconstituer le texte. Les moitiés 
droites des pavés (ou des octets) 
ne comportent que des 0. Ces 
zéros constituent en fait le code 
couleur de PEN (PEN 1 en ce 
cas) : apparions — les gauche + 
droite, on a ‘01’’ quand il y a 
quelque chose à tracer, or 
&X01=1 (PEN 1). 

Tapons PEN 2 et, toujours en 
MODE 1, faisons RUN 220 : les 
1 sont à droite et les zéros à gau- 
che, &X10=2 (PEN 2). 
Tapons PEN 3 et même manœu- 
vre. Dans chaque pavé, le demi 
caractère est répété à gauche et 
à droite, or &X11=3. 

Puisque dans chaque octet on 
associe un bit de la moitié droite 
à un de la moitié gauche, il n'y a 
que quatre combinaisons possi- 
bles : 


‘00’ (=0) ; ‘01’ (= 1) 
#10" (=2) et “11° (=3) 


C'est pourquoi on n’a que quatre 
couleurs en MODE 1. 

Et que se passe-t-il sur l'écran 
vidéo ? Sur chaque image binaire 
d'un octet (le ‘‘tiret’’), chaque bit 
1 est doublé, et dans la couleur 
du PEN. Un caractère occupe 
donc deux pavés, et comme il y 
a 80 octets par ligne, cela fait 
bien 40 caractères par ligne 
d'écran. 

En MODE O, c'est le même prin- 
cipe, mais en divisant par deux, 
un quart de caractère par pavé. 
Pour apparier les bits, on a alors 
16 combinaisons possibles (les 
seize couleurs). A l'écran, chaque 
bit 1 est quadruplé dans la même 
couleur. 


LE HARD 
COPY D'ECRAN 


Il faut que votre imprimante pos- 
sède l'instruction ‘‘BIT IMAGE”, 
c'est le cas de la plupart des 
imprimantes ‘‘à aiguilles’’ ou 
‘’matricielles’’. En usage normal, 
une imprimante traduit l’octet 
reçu en dessinant le caractère 
ayant ce code ASCII, ici c'est 
beaucoup plus simpliste. Les huit 
aiguilles de la tête d'impression 
illustrent l’image binaire de cet 
octet. Ces dessins de bits vont 
être des ‘’barres'’ verticales, or 
sur l'écran ils sont horizontaux ! 
Il suffit de tourner notre gra- 
phisme d’un quart de tour sur le 
papier. L'imprimante commen- 
cera par le bord vertical gauche 
en terminant par le bord droit de 
l'écran ; le bas de l’écran sera 
donc le long de la marge gauche 
du papier. Ce n'est pas gênant. 
L'auteur utilise une EPSON RX80 
(les modèles FX ont les mêmes 
codes). Si la vôtre est d’une autre 
marque, il va falloir modifier les 
libellés des codes de comman- 
des ; nous légenderons les nôtres 
afin que vous puissiez les traduire 
pour votre machine. Si vous trou- 
vez les mêmes, ne soyez pas sur- 
pris car une bonne quinzaine de 
‘’marques'’ sont des EPSON 
rebaptisées. 

Il y a deux programmes diffé- 
rents, pour le MODE 2 et le 
MODE 1 {la version MODE 0 ne 
satisfait pas l’auteur). 

Il s'agit en fait de sous- 
programmes utilitaires (listings 4 
et 5). 


LEGENDES 
DES CODES EPSON 


CHRS$(27);CHR$(64) = vide le 
buffer (initialisation) 
CHRS$S(27);'‘3'":CHRS$S(24) = 
interlignes de 24/216 de pouce 
CHR$(27);'"A"";CHR$(8) = inter- 
lignes de 8/72 de pouce 
CHR$(15) = caractères conden- 
sés (17 par pouce) 
CHR$S(27);'""K"" = 
image 


mode bit- 
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10 ‘ CONVERSION HEXA --: DECIMAL 

20 INPUT "&",Hf 

30 H$=RIGHTS("0000"+H$ ,4) 

40 G$="E"+LEPTS(H$,2) :D$="£"4RICHTS (HS ,7) 
50 PRINT VAL(G$)#25b+VAL(D4) 

60 PRINT:GOTC 20 

70 END 


Listing 1 


100 ‘ RALAYAGE DE L'ECRAN 
110 MODE 2 

120 FOR 4=49152 TO 45497 
130 POKE À,3 

140 NEX 

150 END 


Listing 2 


200 ‘ IMAGE BINAIRE D'UN CARACTERE 
310 MODE 2 

CLS PRINT "aV8/" 

230 FOR A=49152 TO 63491 STEF 2048 
240 FOR N=0 TO 3 

250 CB=PEER (AN) 

260 PRINT BIN$(CB,8):",.": 

270 NEXT:PRINT CHR$ (13) 

260 NEXT 

290 END 


k3 
Es 


Listing 3 


35090 ‘HARD COPY AMSTRAD MODE ! 

59010 PRINT 48 

52020 DIM 2(200) 

55030 PRINT 8#6,CHR$ (27) :CHR$ (64) 'CHRS(ZT SUCER 

$(24): 

53040 PRINT #6,CHR$(13) 

39050 PRINT #9,CHRÿ (15): 

55060 FOR COL=49152 TO 49291 STEP 2:1=0 

95070 FOR LI=COL TO C0L+1920 STEP 80 

99080 FOR T=L] TO LI+14336 STEP 2048 

55090 1=1+1:2#=LEFT$(BIN$(PEEK(T),8),4)+  LEFT$(E 

INS(FEEK(T+1),8),4) 

53100 2CD)=VALE"EX"4Z8): IF 1=200 THEN GOSUB 551 
55110 NEXT:NEXT:PRINT #8,CHR#(13) :NEXT 

55120 RETURN 

33130 PRINT 48,CHR$ (27): "K":CHRS (100) 'CHR# (0): 
55140 FOR J=200 TO {01 STEP -! 

55150 PRINT #8,CHR$(Z(I))'NEXT 

56160 PRINT #8,CHR$(27):"K":CHR#( ICO) CHR (0): 

59170 FOR 1=100 TO { STEP -{ 

55180 PRINT #8.CHR$(Z{J))::NEXT 

ü9190 RETURN 


Temps d'exécution 415". For- 
mat 112 x 84 mm. 


Listing 4 


36000 ‘HARD COPY MODE 2 AMSTRAD 
56010 PRINT #£ 
56029 DIM Z(200) 

560 PRINT 48,CHR$ (27) CHR$ (64) :CHR# (27): "A"'CHR 
$(8;: 
58040 PRINT #8,CHR$ (13) 

56050 PRINT #8,CHR# (15): 
56040 FOR COL=49152 TO 49231;1=0 
56070 FOR LI=COL TO COL+1920 STEP 80 
56080 FOX T=LI TG LI+14938 STEF 2048 
54090 I=!+1:2(1)=PEER(T) IF 1=200 THEN GOSUB 56120 
56160 NEXT'NEXT'ERINT #0,CHR# (13) :NEXT 
56110 RETURN 
56120 FRINT #8,CHR# (27): "K"'CHR$ (100) :CHR$ (0): 
56130 FOR J=200 TO 151 STEP -1:F=217) 
56140 PRINT #8.CHR$(F):CHRS (0): :NEXT 
56150 PRINT H#6,CHR$(27::"K"'CHR$ (100) 'CHR#(O): 
S6160 FOR 7=150 TC 101 STEP -1:P=Z(7) 
56170 PRINT #8,.CHR$(P3'CMRS (O0): :NEX 
56160 PRINT #6,CHR#(27):"K":CHR# (100) 'CHR# (0): 
59 FOR J=! 9 51 STEP -t'P=2(J) 

PRINT #0,CHRS(P3:CHR# (O0): :NEX 

PRINT #9,CHR# (27): "K"'CHR$ (100) :CHR# (0): 
; FOR 1=60 T9 ! STEP {: F=E ee 

INT #9,CHR$(P)'CHR# (0): 


10 & RETI URK 


= 
J 
c 
© 
J 
£ 
“ 
E 
J 
c 


Temps d'exécution 730’. For- 
mat 225 x 170 mm. 


Listing 5 


‘ CODAGE BINATRE D'UN CARACTERE 

356 INPUT "CARACTERE OÙ CODE ASCII":C$:MODE 1 

320 IF VAL(C#);32 THEN PRINT CHR$(VAL(C#)):SPC(2): 
CH'PRINT:G0TO 349 

Q PRINT C#'SPC(ZI ASC(CS) PRINT 

ü FOR A=49152 TO 63468 a Si 

Q Ct=LEFT$(RINS(PEEK(A),8), 

G D SLEPTA (BI NS(PEEK (A+), . 14) 


O4 
CHEPCIZ)IVALI"EX"4CE) 


Listing 6 


LE PRINCIPE 


On explore des bandes verticales 
de l’écran de largeur 1 octet. Ces 
200 octets sont mis en DIM Z 
puis ils sont retransmis à l’impri- 
mante qui écrit donc une ligne. 
Passage à la colonne précédente 
et ainsi de suite. En jouant sur 
divers paramètres d'impression, 
nous sommes parvenus à resti- 
tuer les proportions hauteur x 
largeur de l'écran (approximative- 
ment). En MODE 0, nous ne som- 
mes pas (encore) parvenus à 
obtenir des dimensions d'image 
imprimées satisfaisantes, d'où 
l'absence de la version MODE OC. 
Très important : en MODE 1, les 
inscriptions doivent être en 
PEN 1 ou en PEN 3 (pas en PEN 
2) car nous ne prenons que la 
moitié gauche des images binai- 
res (ligne 55090). 


Trait n° 25 du ("passage 


Trait n° 


43152 
91200 
93248 
55296 
ützd4 
59392 
51440 


Suite à un petit bug de la ROM 
de l'EPSON RX 80, nous n'’'en- 
voyons en ‘‘bit image’’ que des 
suites de 50 ou 100 octets à la 
fois. 


REMARQUE 


C'est aussi pour des raisons de 
proportions d'écran que les coor- 
données graphiques sont de 
640 x 400 alors que logiquement 
ce serait 640 x 200. 


CODAGE BINAIRE 
D'UN CARACTERE 


Vous voulez définir un caractère 
qui se trouve être un caractère 
existant mais légèrement modifié. 
Vous trouvez fastidieux de redes- 
siner sa grille 8 x 8 et de totaliser 
toutes ces lignes. Alors, utilisez 
les programmes du listing n° 6 


43153 
51201 


qui fait instantanément tout ce 
travail. 


Tapez indifféremment le carac- 
tère, s'il existe, au clavier ou son 
code ASCII. L'écran vous soumet 
sa fiche signalétique complète, à 
savoir : 

Le caractère, son code ASCII, sa 
configuration binaire en ‘‘1’’ et 
‘0’ et les totaux de chaque 
ligne. Exemple avec X majus- 
cule : Code ASCII 88, codage 
198, 108, 56, 56, 108, 198, 
198, O. 

Faites un autre essai en tapant 
251. 

Ce programme refuse certains 
signes de ponctuation tels que + 
— ,. &. En ce cas entrez le code 
ASCII. 


Michel ARCHAMBAULT 


25 du 8° passage 


On + ce No — 


KW — OO -J 
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PASCAL FACE AU BASIC 


D: la bibliothèque des logi- 
ciels pour AMSTRAD, il 
existe un compilateur PASCAL 
relativement performant. Nous 
avons choisi, pour vous montrer 
l'intérêt d’un tel programme, de 
résoudre un problème complexe : 
la transformée rapide de FOU- 
RIER. La version PASCAL compi- 
lée montre bien les performances 
de ce langage face à la lenteur du 
Basic interprété. 


Les deux programmes qui suivent 
sont écrits dans deux langages 
différents : BASIC et PASCAL et 
traitent d'un même problème, le 
tracé du spectre d’un signal après 
calcul de sa transformée de FOU- 
RIER. 

Rappelons que la transformée de 
FOURIER permet d'obtenir une 
représentation en fréquence d'un 
signal. Cette représentation est 
donnée par l’analyseur de spec- 
tre qui visualise l'amplitude des 
composantes d’un signal en 
fonction de la fréquence, alors 
que l'oscilloscope visualise l’am- 
plitude du signal en fonction du 
temps. Lorsque le signal est 
périodique, le spectre se com- 
pose de raies. Il existe différents 
algorithmes qui permettent de 
retrouver rapidement les compo- 
santes de ce spectre à partir 
d’une suite d'échantillons d’am- 
plitude d’un signal échantillonné 
dans le temps. Afin de minimiser 
le nombre des calculs à effectuer, 
nous utiliserons un algorithme de 
transformée de FOURIER rapide 
utilisant la méthode du dédouble- 
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ment des échantillons. Mais le 
but de ces quelques lignes n'est 
pas de refaire une étude de la 
transformée de FOURIER rapide, 
mais d'en donner une application 
sur CPC 464 en Basic interprété 
et en Pascal, afin de montrer l'in- 
térêt d’un langage compilé et de 
montrer la souplesse d'utilisation 
du Pascal sur AMSTRAD. 

Dans les deux listings, nous 
retrouvons pratiquement les 
mêmes instructions à la diffé- 
rence de syntaxe près. 

Nous trouvons en plus, au début 
du listing Pascal, les déclarations 
de procédures graphiques néces- 
saires au tracé du spectre et du 
signal temporel. On remarquera 
au passage que l'utilisation de 
toutes les possibilités graphiques 
de l’'AMSTRAD est aisée en Pas- 
cal et qu'il en va de même pour 
le son ou les interruptions. Ceci 
est dû à l'existence de variables 
prédéclarées correspondant aux 
registres du Z80 et à la procédure 
USER qui permet comme en 
Basic l'appel d’un sous-pro- 
gramme en langage machine. 
Pour les deux listings nous retrou- 
vons les blocs suivants : 

— Calcul des échantillons d'un 
signal temporel. Ici, c'est un 
signal rectangulaire avec un fac- 
teur de forme de 1/6 sur deux 
périodes ; en Basic, le nombre 
d'échantillons est entré au clavier 
sous la forme d’une puissance de 
deux (ceci est lié à l'algorithme de 
FFT utilisé). En Pascal, ce nom- 
bre est fixé à 256 par la CONS- 
TANTE SIZE ; pour le modifier, il 
suffit de changer l'affectation de 


Blaise PASCAL par QUESNEL 


SIZE. 

— Tracé du signal temporel après 
avoir tracé le cadre. 

— Tri des échantillons en binaire 
réfléchi (nécessaire avant le cal- 
cul de la transformée). 

— Calcul du spectre de puis- 
sance. 

— Recherche de la puissance 
maximale pour calibrer les échel- 
les du tracé du spectre. 

— Tracé du spectre. 


Le programme Basic met 105 
secondes pour calculer la FFT sur 
256 points alors que le pro- 
gramme PASCAL met 20 secon- 
des. Nous voyons donc que le 
gain de temps n'est pas négligea- 
ble. Il faut cependant savoir que 
cet exemple n’est pas en faveur 
du Pascal, car il y a un grand 
nombre de sinus à calculer et que 
le temps de calcul d’un sinus est 
important et pratiquement iden- 
tique en Pascal et en Basic. 
Rappelons que le Pascal utilisé 
est le Pascal Misoft sur cassette. 
Ce Pascal est très intéressant par 
son rapport performance/prix. 
Notons toutefois pour ceux qui 
ne l'ont pas utilisé, qu'il ne pos- 
sède pas la notion de fichiers, et 
que les WRITE ou les READ se 
font vers l'écran et depuis le cla- 
Vier. || ne connaît donc pas 
INPUT, OUTPUT. De même, cet 
exemple ne traite pas les princi- 
paux avantages du langage Pas- 
cal qui sont la redéfinition de 
type, les enregistrements et les 
pointeurs. Nous reviendrons plus 
en détail sur Pascal dans nos pro- 
chains numéros. 


REPRESENTATION TEMPORELLE 


à | | 


REPRESENTATION SPECTRALE 


BASIC 


10 INPUT nombre d'’'echantillon=2"m: 


?P7",m 

20 n=2°m 

25 DIM reel{n),imag(n),puissi(n) 
30 n2=n/2:n4=n2/2 

100 k=n/2 


105 ’X#X calcul des echantillons XX 


110 FOR i=1 TO n STEP k 
120 FOR j=0 TO k-1 


130 IF j<k/6 THEN reel(itj)=1 ELSE r 


eel(itj)=0 
140 imag{it+j)=0 
150 NEXT j 
160 NEXT ji 


165 ’XY*X trace du signal temporel XX 


200 CLS:MODE(2) 


210 MOVE O0,200:DRAW 639,200:DRAW 639 


:390:DRAW 0,390:DRAW O,200 


215 DRAW O0,0:DRAW 639,0:DRAW 639,200 


220 rap=640/n 
225 MOVE 10,220 
230 FOR i=1 TO n 


240 DRAW 10+ixrap.220+100Xreel{i) 


250 NEXT ji 


300 MOVE 40,380:TAG:PRINT "REPRESENT 


ATION TEMPORELLE";:TAGOFF 
400 ‘XX tri des echantillons Xx+X 
890 j=1 

900 FOR i=1 TO n-1 

910 IF i>=j THEN GOTO 980 
920 til=reel{j) 

930 t2=imag{(j) 

940 reel{(j)=reel{(i) 

950 imag(j)=imag{(i) 

9760 reel{(i)=ti 

970 imag{i)=t2 

980 k=n2 

990 WHILE Kk<)j 

1000 j=j-k 

1010 K=INT(K/2) 

1020 WEND 

1030 j=jtk 


MER tire 


m 


1040 
1060 
1080 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1250 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1450 
1500 
ance 
1510 
1520 
2) 

1530 
1540 


NEXT :i 

7 XX calcul de la FFT xx 
ci=n 

11=1 

FOR 1=1 TO m 

12=11 

11=11Xx2 

c=0 

ci=ci/2 

FOR j=1 TO 12 

i=j 

WHILE i<=n 

ii=i+12 

IF c>n4 THEN GOTO 1260 
UI=SIN(2XPIX#(n4-c)/n) 
u2=SIN(2XPIXc/n) 

GOTO 1280 
ui=-SIN(2XPIX(c-n4)/n) 
uU2=SIN(2XPIKX(n2-c)/n) 
xil=reel(i1) 
x2=imag(ili) 

IF flag=1 THEN u2=-u2 
ti=(xi1xul-x2xu2) 
t2=(x1Xxu2+x2Xxu1) 
xi=reel{(i) 

x2=imag(i) 
reel(iil)=x1-t1 
imag(ii)=x2-t2 
reel(i)=x1it+tti 
imag(i)=x2+t2 

i=it+li 

WEND 

c=c+ci 

NEXT j 

NEXT 1 

? XX calcul du spectre de puiss 
XX 

FOR i=1 TO n 
puiss(i)=SGR(reel(i)"2+imag(i)” 


NEXT ii 
? XX recherche de 1a puissance 


max XX 


1550 


. 1560 


1570 
1580 
1700 
XX 
2000 
2010 
2020 
2025 
2030 
2040 
2050 
2100 


pi=puiss(i) 

FOR i=2 TO n 

IF piépuiss(i) THEN pi=puissi(i) 
NEXT ii 

* XX trace graphique du spectre 


MOVE 0,0 

FOR i=1 TO n/2 

x=10+iXxrapXx2 
y=20+130xpuiss(i)/pl 

MOVE x,20 

DRAW x%x, y 

NEXT ji 

MOVE 40,180:TAG:PRINT "REPRESEN 


TATION FREQUENTIELLE";:TAGOFF 


3000 


END 
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PASCAL 0 


500 PROCEDURE pendoun{C: INTEGER) ; 


510 BEGIN 
520 penstatus:=true; 
539 penic) 
540 END; 
10 PROGRAM FFT; 550 
20 CONST 560 PROCEDURE penup; 
30 size=256; 570 BEGIN 
40  puis=8; 580 penstatus:=false 
50 PI=3,142596; 590 END; 
60 VAR 500 
70  reel:ARRAYIL..size] OF REAL; 60! PROCEDURE border(ci,c2:integer); 
80 inag.ARRAYIL..5ize]) OF REAL; 602 BEGIN 
99  PARRAYII..S1ZE] OF REAL; 603 rb:=chrici);rc:=chric2); 
100 1,11,N2,J,K:INTEGER; 604 user {#bc38); 
110 C1,C,LI,L,L2,N4: INTEGER; 605 END; 
120 T{,72:REAL; 606 
130 ratio,x,y:integer; 607 PROCEDURE mindomici,c2,11,12:integer); 
131 UI,U2,X1,X2:REAL; 608 BEGIN 
{32  penstatus:boclean; 609 rh:=chricl);rd:=chr(c2); 
149 610 rl:=chr(ll)ire:=chr(12); 
141 (procedures graphiquest} 611 user (#bbé66); 
142 612 END; 
143 PROCEDURE mode (a: integer}; 613 
151 BEGIN 614 
161 ra:=chris); 615 BEGIN 
17! user {#bc0e) 630 
180 END; 631 (calcul des echantillonst) 
190 632 
200 PROCEDURE penli:integer}; 633 k:=size DIV 2; 
210 BEGIN 634 i:=]; 
220 ra:=chrli); 635 WHILE i(size DO 
230 user {#bbde) 636 BEGIN 
240 END; 637 FOR j:=0 TO k-1 DO 
250 638 BEGIN 
269 PROCEDURE paper (i:integer); 639 IF j(k DIV 6 THEN reellitj]:=1 
270 BEGIN 640 ELSE reellitj]:=0; 
280 ra:=chrli); 641 inaglitj}:=0; 
290 user (#bbe4) 642 END; 
300 END; 643  i:=itk; 
310 644 END; 
329 PROCEDURE inkti,ci,c2:integer); 645 
330 BEGIN 646 {£trace du signal tenporel#) 
340 ra:=chrlil; rb:=chricl); rc:=chr(c2); 647 
350 user (#bc32) 648 naode{2); 
360 END; 649 inki1,0,0);ink(0,13,13); 
370 650  border{13,13);pen(1);paper (0); 
380 PROCEDURE plot(X,Y:integer); 651  penupi 
390 BEGIN 652 line (0,0); 
400 rde:=x; rhl:=y; 653  pendomni{1); 
410 user{#bbea); 654  line(639,0); 
420 END; 655  line(639,200); 
430 656 line(0,200); 
440 PROCEDURE line(x,y:integer); 657 line(0,399); 
450 BEGIN 658 line(639,399); 
460 rde:=x; rhl:=y; 659  line(639,200); 
470 user(#bbf6) 660 line(0,200); 
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661  line(0,0); 1100 UI:=SINI2#PI#(N4-C)/size); 


662  pendomni0);line(20,210) ;pendowni1); 1110 U2:=SIN(2#PI#C/size); 

663 FOR i:=1 T0 size D0 1120 END; 

664 BEGIN 1130 X1:=reell11]; 

665 x:=20+i#(640 DIV size); 1140 X2:=isagl11]; 

666 y:=210+100tentier(reelli]); 1150 Ti:=(XIHUI-X2#U2); 

667 linelx,y); 1160 T2:=(X1HU2+X2#U1); 

668 END; 1170  X!:=reelll]; 

669 mindou(10,70,1,1); 1180 X2:=inagl1]; 

670 writel'REPRESENTATION TEMPORELLE"); 1190  reell[111:=X1-TI; 

671 1200 inag[11]:=X2-72; 

672 (4 TRI DES ECHANTILLONSE) 1210 reelll]:=X1+7!; 

673 1220 inag[1]:=X2+72; 

674 J:=|; 1230 1:=1#L1; 

680 N2:=SIZE DIV 2j 1240 END; 

682 nd:=n2 DIV 2; 1250 C:=C+Cl; 

690 FOR 1:=1 TO SIZE-1 DO 1260 END; 

700 BEGIN 1270 END: 

710 IF I(J THEN 1280 

720 BEGIN 1281 (+ calcul du spectre de puissancet) 
730 Tl:=reellJ]; 1282 

740 T2:=inaglJ); 1283 FOR 1:=1 TO size DO P[I]:=S@Rtireel[1]#reel[1)+inagl1)#insag{1)); 
750  reellJ]:=reell1]; 1300 TI:=PI1]; 

760  inag{J]:=isagll); 1310 FOR 1:=2 TO size DO IF TA(PLI) THEN Tl:=P[1); 
770 reelll]:=T1; 1320 

780 imag[1]:=T2; 1321 (trace graphique du spectret) 
790 END; 1380 

800 K:=N2; 1381 pendown(0); 

810 WHILE K(J DO 1390 line(0,0); 

820 BEGIN 1410 ratio:=640 DIV size#2; 

830 J:=J-K; 1420 FOR i:=1 TO size DIV 2 DO 
840 s=K DIV 2; 1430 BEGIN 

850 END; 1440 x:=20titratio; 

860 J:=J4K; 1450 y:=entier(10+150#(pli]/t1)); 
870 END; 1460  pendomni(0); 

890 1461  line(x,10); 

891 (# calcul de la FFT #) 1462  pendowni1); 

892 1471  linelx,y); 

893 Cf:=size; 1472 END; 

900 Li:=1; 1481 WINDOW(10,70,13,13); 

910 FOR L:=1 TO puis DO 1482 MWRITEU'REPRESENTATION SPECTRALE"); 
920 BEGIN 1483 WINDOW(1,80,1,25); 

930 L2:=LI; 1484 END. 

940 L1:=L1#2; 

950 C:=0; 

960 Cl:=C1 DIV 2: Denis BOURQUIN 

970 FOR J:=1 TO L2 DO 

980 BEGIN 

990 1I:=]; 
1000 WHILE I(=size DO 

1010 BEGIN 
1020 I1:=1+L2; 

1030 IF CCN4 THEN 

1040 BEGIN 


1050 U1:=-SIN(2#PIH(C-N4)/size); 
1060 U2:=SIN(2#PI#IN2-C)/size); ‘ 


1070 END 
1080 ELSE 
1090 BEGIN 


AMSTRAD 


CANNES : (93) 48.21.12 


Tél.: (56) 24.05.34 
257, rue Judaïque 
BORDEAUX 


Complet avec moniteur 
monochrome .... 


et drive 
incorporé 
Complet avec moniteur 


couleur 


et drive 
incorporé 


AVIGNON : (90) 22.47.26 


UN DESASSEMBLEUR 


oici pour les amoureux du 

langage machine un petit 
désassembleur écrit en Basic qui 
leur permettra, entre autres, de 
percer les mystères du CPC 464. 
Dès le lancement par RUN, un 
choix est demandé par l'ordina- 
teur quant au type de zone où 
doit être lancé le désassembleur 
(RAM ou ROM). 
En effet, dans l'AMSTRAD, la 
ROM n'est pas accessible direc- 
tement, elle se trouve en ‘’OVER- 
LAY”" sur la RAM et, pour sélec- 
tionner l’une ou l’autre, une petite 
routine en langage machine est 
nécessaire. Cette sélection faite, 
il suffit ensuite de donner en 
hexadécimal l'adresse de lance- 
ment du désassembleur. 
Dans le bas de l'écran, sont don- 
nées quelques indications sur les 
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options disponibles. La plus à 
gauche, intitulée ‘SELECTION’ 


. donne l'état RAM/ROM choisi 


précédemment. Les autres indi- 
cations constituent le mode 
d'emploi. On y trouve : 


ESPACE = Suite 

Le désassemblage se fait par 
page d'écran, et pour poursuivre 
quand ce dernier est plein, il suf- 
fit d'appuyer sur la touche 
‘Espace’. 


N = Nouvelle adresse 

Après avoir désassemblé une 
page, il peut être nécessaire de 
sauter à une autre adresse. Ceci 
se fait en appuyant sur la touche 
‘’N'" afin de revenir au menu. 


l-Imprimante ON/OFF 


Si l'on possède une imprimante, 
il peut être utile de conserver 
quelques listes désassemblées. 
Ceci se fait par appui sur la tou- 
che ‘‘l"’ constituant un interrup- 
teur de marche-arrêt de l'impri- 
mante. L'état est donné en per- 
manence au bas de l'écran et au 
lancement du programme, l'im- 
primante est inhibée. Un appui 
autorisera l'impression 


QU EN 


sur 
des prochaines lignes, 
deuxième interdira, etc. 


A= Arrêt 


Sortie du programme et réinitia- 


lisation de l'écran. 


(Les instructions sur IX et IY ne 


sont pas désassemblées). 


Eddy DUTERTRE 


LE 


LE REM RER ARE RACE ROUE EE TERRE EEE RRE 


4 RE #X* -DESASSEMELEUR- ** 
39 REM #4 #+ 
44 REN XX G-CUTERTÉE ECC X* 
54 RE *X* #+ 
64 RENM ** 25-82-1985 ** 
Fÿ RE ** &Y 
59 REM KEANE RARE EE EEE RARE EEE RER E 


38 DATA NÜP,"ELO BC,","LD CEC),A",IHC EC,INC E 


»DEC B,"{LD B,",RLOR, "EX AF,RF*", "ADD HL, BC" 
159 DATA"LD À,ÉBC)",DEC BC,INC C,DEC C,"ILG C, 
MARRÈA, OSDINZ ","ELD DE,","LD ÉGEï,H",INC DE 


118 DATA INC D,DEC D,"ILD D,",RLA, "JR ", "ADD 
HL,DE","LO A,6DE3",DEC DE, INC E,DEC E 

126 DATA"ILD E,",RRA,"3JR NZ,","2LD HL,","4LD 
€ D, HL', INC HL,INC H,DEC H,"ILD H,",DAA 

138 DATA3IR 2,", "ADD HL,HL","7LD HL,C  5",D 
EC HL,INC L,DEC L,"ILD L,",CPL,"3JR NC, ", "LD 
SP," 

148 DATA"4LD € D, A", INC SF, INC CHL),DEC CHL 
),"ILD CHL3,",SCF,"3JR C,", "ADD HL,5P","SLD À, 
(  2",DEC SP 

158 DATA INC A,DEC A,"ILD A,", CCE 

16 DATA RET NZ,POP BC,"2JP N2,","2JP ","2CALL 
N2,",PUSH EC, "1RDD A,",RST D,RET 2,RET,"2JP 2 
a AUL 22: SCALE #S(ADC: A, "BST 8, 

RET NC,POP DE,"2JP NC,","EOUT  ,fÀ" 

179 DATA"2CALL NC, ",PUSH DE,"1SUR ",RST 16,RET 
CLEA, VeJP D," MTIN A," "CALE C,* INST/IN 1 
SBC A,",RST 24,RET PO,POP HL,"2JP FO,"," 

EX CSP), HL","2CALL PO,",PUSH HL,"1AND ",RST 32 


134 DATA RET PE,JP CHL),"2JP PE,","EX DE,HL"," 
2CAL L'PEs "yes TINDR ROSE ABQRET PPOP AE; "2IP 

P,",01,"2CALL P,",PUSH ÀF,"10R ",RST 48, 

RET M, "LE SP, ALP "AIR M,";EI 

130 DATA "2CALL M,",INST/IY,"1CP ",RST 56 

288 DATA LDI,CPI,INI,OUTI,,,,,L0D,CPD, IND,OUTD 
53233 LDIR.CPIR,INIR,OTIR,,,,,LDDR,CPDR, INGR, OT 


œR 
218 DATA"IN B, CC", "OUT CC),B", "GBC HL, BC", "4L 
D< ,RC",NEG,RET N,IN D,"LD L,A*,"IN C,CC) 


LOU ÉD CE MAO HE BEM U7LD BE; à 
"M, RETI, "LC R,H","IH B,éC2", "OUT LE), Dr, "SEC 
HL,DE","ALC € JDE 
224 REM ne pas effacer cette no 
256 CAT ESC.C.EH,L CHLS.A.E, EH LE HLTR 
244 DATA RLC,REL,EL.RE,SLA,SRA, SRL,BIT.RES.SE 
ï 
256 CATA"AGO 4,","AOC A,",MSUE ","SEC 4,","AND 
DOURUR MUR MUR 
268 CATALDF, 864, LAB, &CS, &K O7 SAE, RFC. £SA, 869,46 
DES RGE, LAB. KT. 800,868, LCD LEN,LEE EST RIT, 
LAE,àC3 
274 MEMORY  LSFFF: CIN Réiiér.S4ilii 
258 RESTURE 236:0=84 
236 FOR N=ÿ T0 15:REAC RSCHI:HEXT 
3644 FÜR Hz TD 14: REC SHCNA:HEXT 
"10 FOR H=4 T0 F:REARD TRCNI:HEST 
26 FÜR HELAEGG TO SABLES: READ H:FÜKE N,H:HEXT 
3354 HÜCE 1:WIHOOW 1,44,1,24:MIHOÛN #1,1,44,21, 
ES URIGIN 4,64: CRAN 633,4,1 
344 ORIGIN 4,46: de 639,8, 1: ORIGIN 144,4:GRAH 
20 4,1: LOCATE#1, 1, 2:FRIHT#I, "SELECTION". 
354 LÜCATE #1,13, 2 PRINT#1. "COMMANDES" : LÜCATE 
#1,11,4: PRINT#1, MESFACE=Su I te N=Nous.adresse 


364 LOCATE #1.11,5: A PAR PARRENES ON"; 
CHESGE Ed; "OFF": CHR$i 24 

374 LOCATE #1, 33,5: PRINTS 1; "hsfrret" 

384 CLS: PRINT"YOUS WOULEZ CESASSEMELER UNE 20 
NE CE:" 

338 FRINT:PRINT"'I-RAMMU:FRINT"'EZ-ROM":FRINT:PRIH 
T'YOTRE CHOIS ?" 

468 GS=INKE NS: GHSUPPERSIGHOI IF GH=UU OR CG" 
1' AND G$<i"2" HHD G$<)"l"1 THEN 445 

418 IF G$="I1" THEN GÜSUE 1346:G0T0 48 

424 FRINT:PRINT:R=VALÉGSO):LOUCATE #1,4.4:1IF Rai 
THEN PRIHT#1,"RAM" ELSE FRINT#1, "ROM" 

436 H=8:B$="":PRINT "ADRESSE DE DESASSEMBLAGE: 


448 FÜR N=ÿ TD 3 
458 AS=INKEYS: a$=UPFERS( a): IF A$="" THEN 458 


469 IF A$="1" THEN GOSUB 134ÿ:GO0T0 458 
474 IF A$>"9" AND A$<"A" THEN 458 

454 IF A$>"F" üR A$<"ÿ" THEN 455 

434 LOCATE Z6+N,3:PRINT A$:E$=B$+A$:NEXT 
349 A=YALE"EU+BSI IF HD THEN A=653236+8À 
318 ELS:FÜR N=i TÜ 2% 

524 FRINT UPPER$&IES);" D 


34 P<A:GOÛSUR 1234:C$z= HEXSC D, 2: GOSUE 674: G0EU 
584 

Es LÜCATE 27,N:FÜR M=A TD A+I-1:P=M:GOSUE 123 
:FRIHT HEX% 0 2ù;" "i:NEXT:PRIHT 

su A=A+I:IF H565335 THEN A=È 

. ES=HEX SCA. di: IF G= THEN 534 


FÜR Mzi TO 4S:LOCATE H,N:CALL RAF19: PRINT 
CHRS$E FEERÉKABIF 35: MNEXT M:PRIHTHS 

NEET H 

TH=IHEE"S: TH=UPFERSETHAIIF Té="" THEN 5534 
IF Té=" "THEN ES=<HEXSCA, 43: GOTO S14 

IF T$é="1" THEN GÜSUE 1344: GOTD 338 

IF T$="H" THEH 356 
4 IF Té="A"THEH HIHCON 1,44,1,2%:CLS:EHD 
1 GOTO 338 
G CATA IN 1,"LC A,IM,M"IN ECO", MOUT ÉD, E", 
"AGE HL,GE" "FLE DE, 1", IN ESC RMS" 
HOH EC at, OUT CG HM, "SEC HL,HL","4LG à 

2, HE", REG"IN LCA COUT CS, LU, FAGC HL 

4H", "FLD GE, 1, RLD,, "SEC HL,SF" 


Cr Qi - 


ns 


it 
D D © © Em Li 


Tu Tu Ti Ji En CN A Co un La àn Œ& cn 3 Qn 


CT He Le Foi 
1 1 


564 oe "AL D D EN LM A CCS OUT 
Ci,4",."AGC HL, gp" ,"?LO EPS 3" 

SF Ÿ VAL" E"4+NMIDSC CS, 1:13 3:Z= 4 ALI "EM ANIDSCES, 
2,1353:RETUERN 

ES IF 33 AND VS THEN FF 

536 293 THEH F=A+tl:GÜSUE 1254: QD 324 
FE F THEH P=A+i GOSUE 1234: 6010 1468 
Fi à THEH FRINT'IHESTSIES 2": GOTO 13684 
Fed 2": GATE 1364 


= THEN FRIHT"INETS I" 
a IF Géisr ANG CSi32 THEN 88 
"44 IF Dééd THEH 536 
54 IF Gi131 THEN 64h 
FÉé4 FRINT:I=i:RETUEN 


si 
VX] 


IF Zi 


0 
pe 


ND Ÿ=7 THEN PRINT'HALT":1=1:RETURNH 


LS 
D] 


GOSUR 11F4:FÛR g=8 TO dd-p#IH:: READ e$:NEX 


F34 PRINT'LO ";:Kz=iT-423x2 

F3 IF Z<S THEN PRINT R$&K);","; 

S68 IF 257 THEN PRINT R$&CkK+15;","; 

519 PRINT R$iZ3:1=1:RETURN 

324 IF C>63 THEN 548 

334 K=INTÉD/3 2): PRINT S$iK);" ";:GOSUB 674:FRIH 
T E$g(Z29:1=2:RETURN 

344 kK=INTI d'Édi+7 PRINT s5$6k5: 

359 K=<INHTId 85-8:1F di1931 THEN k=k-16 

364 IF die? ane di132 THEN k=k-5 

564 PRINT k;","5:CS$=HES$ D, 25: GOSUR 6FG:FRINT 

Nate RETURH 

354 kK=d-128:uzIHTCKSS SPRINT tétui;: :GOSUE 674: 
PRINT r$izi:izi:RETURH 

339 p=IHTid'165 

35 7 

- 


3 
1:RETLRN 

324 PRINT MIC$CeS, di 

334 IF f$="i" THEN F= A4: GOSUB 1234:FRIHT HEXS 


3 
15 FÉ=MIDHE ESS, L,10:1IF F$4>"2" THEH FRINT e$:i= 
R 


dd,23:1=8:RETURN 


240 IF FS="EUTHEN P=A+EZ:GOSUE 1234: PRIHT HExSe 
1: F=A+I GUSUE ESA: FRIHT HEX$ÉD,25:1=3:RET 


= 


 — 
2 


Lis Lt € 
ZE Ci Où Ln 
D] 


IF f${>"3" THEN 355 

F=A+1:GOSUB 1294:PRINT HEX#(d,3):" ": 

IF d>127 THEN d=d-256 
wsatitd:EeHEXSEu, 4: PRINT b$;"3)":isz:RETI 


Ti 


10 A9 is il Ce 
mo 


36 IF f$="4" THEN LÜCATE 13,n:f$="a": GOT 546 
1864 IF F$="3" THEN LOCATE 15,n:f$="2":GOTO 34 
1414 IF F$="S" THEN LOCATE 13,n:#f8="{l":GUTO 35 
14é4 IF F$="e" THEN LOCATE 16, n:f$="£":GOTO 54 
145% FRIHT:i=1:RETURH 


144 p=IHTÉC d-132 3/28 047 
1858 GOSUE 1174:FOR a=9 TO <d-192-Cp-73#200:RE 


6€ 


AD e$:NEXT 9:GOT0 318 
1860 IF d$153 THEN 1835 
1479 RESTÜRE 286 
1938 FÜR j=à TO d-164:READ e$:NEXT:FRIHT e$:iz 
2: RETURN 
18998 IF 435 THEN 1128 
1158 RESTOÜRE 214 
1114 FÜR j=6 TO d-64:RERD e$:HEXT:T=AR:A=A+1: Gi 
SUE 918:4=T:izi+i:RETUEN 
1124 IF doii4 THEN 1156 
1134 RESTURE 654 
1148 d=d-22:GÜT0 1118 
1154 RESTURE 664 
1164 d=d-51:GOT0 1114 
1174 ON p+i GÜTO 1188,1196,1264,1214,1224,1234 
.1844,1258,1266,1274, 1280 
1154 RESTURE 34:RETURN 
1134 RESTURE 164: RETURN 
1244 RESTURE 114:RETUREN 
1214 RESTORE 124:RETUEH 
1224 RESTORE 134:RETURN 
234 RESTÜRE 144:RETLEN 


124ù RESTORE 156:RETUEREN 

1254 RESTURE 164:RETURN 

1269 RESTURE 174:RETUEN 

1274 RESTOURE 154:RETURN 

1259 RESTORE 136: RETUEN 

1234 IF R=1 THEH G=FEEKRCE à): RETURA 
1564 PHEIHTÉPSES6 2 FLeP-FHEZSÉ 
1518 FÜKE &AEGS,FL:PÜOKE KAENS,.FH 
1524 CALL £ABEE 

1334 D=FEERSEABGE à : RETURN 


1544 IF 025 THEN Gzi:LOCATE#L, 24,5: FRINT#L, CHE 
gi Ed); "ON"; CHRSÉ 240; MSOFF": RETURN 

1554 =: LOCATE#I,24,S:FRINTHL. "OHS"S CHARS Ed: 
MOFF":CHRSE 24 à: RETURN 

13664 F= Ati: GOSUE 1234 

1354 IF D=3 ÜR GC 
E ÜR D=&ES UR GERS 
OR D2£ES THEN 1=2:RETUEH 

1384 IF G2ËCE Of DGEXSE OR GERZE OR D=LER Of G= 
KZ THEN I=d:EETUEN 

334 I=3:RETURN 


Exemple de desassentlage sur iaprimante 


DFC4 FUSH AF F3 
GFCS PUSH HL ES 
GFCE LC À,D FA 
GFCF CFL ëF 
BFC LEO H.A 6é 
GFC3 LD À,E FE 


BFCA CFL 

BFCE LEO L.A 
gFCC IHC HL 
GFCC ACD HL,EC 
GFCE INC HL 
GFCF EX CSP, HL 
GFG SUR À 

GFCi SUE E 

GFCE FUSH ÀF 


TT D M Fo D fo Fo 


HT D CG CN D EN Lt M où di LOG TN 


GF03  CALL DEA CD A3 
GFD6 PUSH HL E 
GF07 LD A,E 7 
GFDS CPL 3 
BF03 LD L,A Ê 
FOR LD H,FF 86 FF 
BFDC LD CE2673,HL 22 67 
GFOF POP HL E1 
dFEN  FOP AF Fi 
dFE1 AND E Aë 
FE LD E,A 47 
DFE3 JR 2,45 (192A) 28 45 
BFES EX ©SF3,HL E3 
AFES JE 43 <GFER) 18 43 
FES LD À,(DE) tA 
AFE3 OR C Fi 
FER LD CA 4F 
FER DEC HL 2E 
FEC LD A,H re 
FEU OR L 5 
QFEE JR 2,34 (1Bè4) 25 54 
BFFA INC DE 13 
GFF1  DJNZ FS (GFES) 19 F5 
BFF3 EX DE.HL EE 
DFF4 POP HL El 


AMSLOG 


C'est au MIT que Seymour PAPERT 
a développé un langage évolué, 
simple d'emploi, offrant pourtant 
des possibilités importantes : le 
LOGO. 

Ce langage est surtout orienté vers 
le graphisme, et est très facile d'ac- 
cès car chaque instruction LOGO se 
concrétise dans le déplacement 
d’une ‘‘tortue””’ à l'écran. L'auteur a 
alors devant lui une image réelle de 
ce qu’il vient de créer, et élabore 
peu à peu son graphisme en s’iden- 
tifiant à la petite tortue qui avance, 
tourne, recule sous ses ordres. 

Le LOGO est en général très gour- 
mand en mémoire ; c'est pourquoi il 
ést encore assez peu répandu et uti- 
lisé. Il est pourtant particulièrement 
recommandé pour l'apprentissage 
de l'informatique et de la program- 
mation de par sa simplicité. 

Ce programme est une version sim- 
plifiée de ce langage ; il permet uni- 
quement de faire du graphisme. Il 
est programmé exclusivement en 
Basic : la rapidité d'exécution s’en 
ressent évidemment, mais cela per- 
mettra à tous ceux qui veulent l’amé- 
liorer, le modifier, de le faire facile- 
ment. AMSLOG comporte deux 
modes : 

— le premier est un mode direct : 
vous tapez votre instruction dans une 
fenêtre en bas d'écran, et l’interpré- 
teur Basic l’exécute immédiatement 
dans la fenêtre graphique. On ren- 
tre ainsi ses commandes une à une, 
et le résultat s'affiche au fur et à 
mesure ; 

— le second est le mode ‘’pro- 
gramme’” : vous rentrez les instruc- 
tions que comporte votre pro- 
gramme les unes après les autres ; 
vous pouvez ensuite le lister, le 
modifier ou l’exécuter. Les numéros 
de ligne s’affichant automatique- 
ment, il n’est pes nécessaire de les 
taper. Par contre, il est indispensa- 
ble de bien respecter la syntaxe des 
instructions, notamment pour les 
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espaces et les paramètres. 
Quelques spécifications : 

— capacité de programmation : 100 
lignes, une instruction par ligne, 
— 20 labels utilisés pour les bran- 
chements et les sauts (label X), 

— 10 variables indicées V{x) [de 
V(0) à V(0)]. 

Voici les commandes de l'éditeur : 
E : exécute le programme. 

L : liste les 20 premières lignes du 
programme. 

LX : liste à partir de la ligne X. 

l : insère une ligne en décalant la 
première ligne du listing à l’écran 
vers le bas. 

D : efface la première ligne du lis- 
ting à l'écran. 

G : permet de passer du mode pro- 
gramme au mode direct, et inverse- 
ment. 

H : donne la liste des instructions et 
leur syntaxe (Help). 

Q : quitte le programme. 
SAUVE : sauvegarde le pro- 
gramme LOGO sur cassette. 
CHARGE : charge un programme 
LOGO en mémoire. 

VAR V{x) : affiche la valeur de la 
variable V{x). 

Les instructions utilisables sont les sui- 
vantes : ; 

AVANCE x : dessine à l'écran un 
segment de droite de x pixels. 
DIRECTION x : la direction cou- 
rante devient x, x étant un angle en 
degrés. 

DROITE x : tourne à droite de x 
degrés (de même GAUCHE x tourne 
à gauche). 

ORIGINE xxx.xxXxX : positionne 
l’origine graphique en xxx.xxx 
(attention, il est indispensable de 
taper les coordonnées en 3 chiffres, 
séparées par un point. Exemple : 
ORIGINE 320.200 place le curseur 
graphique en milieu d'écran). 
RECTANGLE xxx.xxx : dessine 
un rectangle dont les côtés mesurent 
xxx et xxx pixels (même remarque 


que pour ORIGINE). 


CERCLE x : trace un cercle de 
rayon x, et centre le dernier point 
tracé. 

EFFACE : efface l'écran. 
OUBLIER : efface le programme 
LOGO contenu en mémoire. 

SON : produit un BEEP bref. 
MODE x, ENCRE xx.xx, 
PAPIER x, STYLO x, BORD x : 
correspondent aux instructions 
AMSTRAD mode, ink, paper, pen, 
border (attention au mode employé 
pour le nombre de couleurs utilisa- 
bles). 

AFFICHE EN xx.xx chaîne de 
caractères : affiche la chaîne de 
caractères à la position xx.xx. 
V(x) = n: donne à la variable V{x) 
la valeur n. 

CALCUL DE V(x)=V(x)+n et 
CALCUL de V(x)=V{(x)-n : 
incrémentent ou décrémentent V{x) 
de la valeur n. 

LABEL x : positionne un label sur 
lequel vont s'effectuer les branche- 
ments et les sauts. 

VA AU LABEL x : saut incondition- 
nel au label X. 

SI V(x)=0 VA AU LABEL n : 
teste si V{x)=0, et si c'est exact, se 
rend au Label n. 

FIN : obligatoire en fin de pro- 
gramme. 


REMARQUES 


— Toutes les instructions graphiques 
sont paramétrables à l’aide des 
variables V{x), 

— à l’origine, AMSLOG, se trouve 
en mode programme, 

— après un Lou un Lx, la ligne cou- 
rante est la première du listing, 

— pour modifier une ligne x, il suffit 
donc de taper ‘’Lx’’ puis la nouvelle 
ligne à la place, 

— si jamais le programme se 
‘’plante’’, on peut le redémarrer par 
un ‘’GOTO 800 ‘’ sans perdre le 
programme LOGO en mémoire, 
— de même, il est possible à tout 


moment de passer du mode direct au 
mode programme et vice-versa, sans 
perte du programme LOGO en 
mémoire. 


Enfin, voici quelques exemples de 

programmes courts et simples, illus- 

trant les possibilités de l’'AMSLOG, 

et qui vous serviront d'exemples 

pour l’apprentissage du langage. 
1 efface 


5 droite 110 

6 calcul de V(1)=V(1)-1 
7 si V(1)=0 va au Label 2 
8 va au Label 1 

9 Label 2 

10 son 

11 fin 


Exécutez-le, puis entraînez-vous à le 
modifier (à titre d'exemple, tapez 
‘’DROITE 50’ au lieu de ‘’DROITE 


2 V(1)=25 

3 Label 1 

4 rectangle 100.050 
5 droite 115 


1 efface 

2 V(1)=36 

3 Label 1 

4 rectangle 100.050 
5 droite 110 


2 V(1)=36 110’). (La suite de ces deux programmes 
3 Label 1 reste la même que celle du premier.) 
4 avance 90 1 efface 
Stéphane CLOIREC 
1 ' OHÉEEEEEEEEEEEEEEELEEEELEEEEEEEE ID OO HEEEFEAENEEEEEEERELEEEETELEEE EEE EEAEENEX 
3 " *tt AMSLOG LRe: 20 © HHFEYENEE AMSLCC LEFÉEEEEEE 
CS: *+* 49 ‘ *HHETYTEH ÉXYEEEENEE 
CRE ::: PRESENTATION rs: E0 ‘ #t* #tY 
b © *#*t #EY 60 ‘ #X# {c) 1985 par Stephane CLOIREC *#* 
TU OEÉEEEEEEEEREENEEEEEEELEEEE EEE 7Q ‘ ##t *#* 
8-* 80 ‘ ÉYÉYEEEFENEEEEEEEEETEEEEEEEEEEEEEEEEEYE 
LAS 30 ‘ 
10 BORDER O'INK 0,0 100 ‘ 
20 DIM FAL{I4):FOR 1=0 TO {4:READ PAL(I):INK I+1,F i10 DEG 
AL(I):NEXT 120 SYMEOL AFTER 1865: SYMBOL 166,86,8B,RAIC, 466, LE, 
30 DATA 3,6,15,24,25,22,21,12,13,1,2,5,4,14,28 L6C,L3C'KEY 131,CHR$ (166) 


40 MODE O:CLG O:PAPER O':PEN 14 
50 ORIGIN 320,250 


60 FOR J=48 TO 108:1=J#P1/52:MOVE COS(1)#220,SIN(I 


1#160-40:DRAW 0,0,7 MOD 13+1:NEXT 


70 FOR 1=3 TO 23:FOR K=-110 TO 110 STEP 220:1=J#F1 
12B:MOVE COS(I)#190+K,SIN(I)*80-20:DRAE 0,0,(7+((K 


={10)AND 4)-2) MOD 13+1:NEXT K,]J 


80 LOCATE 8,2:PRINT"'AMSLOG"'ORIGIN 220 
0 


97,0: DRAWR 0,-32'DRAUR -197,0:DRAUR 


90 FOR K=1 TO IC:FOR J=1 TO 13:FOR I={ TO 13 
100 INK !,PAL((I+T)MOD 13):NEXT I,7,K 


392: DRAUR ! 


ü COSUB 2650 


230 co={:d4=0 


} © LEXFALEAKINTERPRETEUREEEEETEX 


110 LOCATE 1,25:PRINT'Chargement en cours" :RUN"!" 246 IF co?100 THEN 1790 


250 cé=ifico) 
260 IF LEFT 


tc$,4)="mode" THEN PEN 1 PAPER O:MODE 


VALEMID#{c4,4)}:d=0:1a=320:1b=200 ORIGIN 1a,2b:G0 


TO 490 


270 IF LEFT$ (c$,4)="bord" THEN GOSUB 2010:GOT0 49 


) 
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e* THEN COSUE 25 


28G IF LEPT G'GOTO 4 


290 IF LEFT (ct,b)="sanier" THEN GOSUE 211G:CGTO 
ä70 

3 TC I COT - RE ver mi 4 

390 IF LEPTS ct,5i="stvio" THEN G 


IP LEFTS (c$,6)="dr 
THEN GOSUE 5 
IF LEPT$ {c$,3 17 

IF LEFT# (c$,46:="efface" pe Le ue 
IF LEPTS 24,8) 


LEPTS (cf. Ti="arigine" THEN GOSUB 1920:G070 


‘va au label" THEN co=l {VAL { 


v{* THEN GOSUE 885 :CCTO 49 


ï de” THEN v(VAL {MIDS 


; 

\ 
13 JA! { nn " Le] 
1)))4VAL CMID$ :C$,2 


prrat 


jj}=v{VAL [M 


"THEN p=Val (MIDS (04,7 


SUR 680 :COT 


5 MUCN CACINO 
THEN COSUE 


n t4te 
OCTO 181€ 


HÉFETEAEEAVARCERNEERATEX 


c4,8,1)="v" THEN xa=5iN ee 
xEb=C0S (d)Ev (VAL (MIDS 
en 


ict,8)):xb=C0S Ed)EVAL (M 


i 
ID$ ou: : ou! :za=vatiazo=xh#2h 'ORIC 


IN 23,2R'RETURN 


FÉEFEDROTTE /GAUCHEX*YEEELEX 


DIN GOTS 630 
send {c$,8) 
| : x 
c$,ii=to" 25,8) 


à RETURN 
F LEPT$ 
«RETURN 


Di 


ÉÉXELEENEREUTANCLEREAEEEEES 


et Ce TS Cr Le En Cr 


VER 9 tr LYS S 
5 Ÿ MID (cé,15,i}= S Fe 


729 :0=VAL (MID$ cu 11,3)):11=VAL (MID$ (c$,15)) 
730 ORIGIN 1a,zb'xa=SIN(d)#10:#b=C0S(d)#10:DRA xa 
been assrahra 1h 2bib ORIGIN 1à,2b 

745 d= Abou xa= =SIN(dIAT Li xbE COS ta}#11 :DRAY xa,Xxb,co 


ya=SIN(G mi 19:xb= COS d)#10:DRAU xa,xb,c0 
rxa19=2E+xb ORIGIN 1a,2b 
me DA : SR DRAW xa,Xb,c0 


tr ‘ FD (GE: LG- Lee 
Eh EURE (MID 


:15,4:2"4* THEN IG=VAL (MID$ (cé.11, 
(MID#(c#,17,1 


PRINT “PREPARATION DES LABELS" 


))})=6 THEN co=} (VAL (MID 


] 


g= 
IN 


“AJ 


UT rep$ict=LOWERS(rep#):IF c$="" THEN GOTO 


{3 42 


se c$+® ":1a3=320:2b=200 ORIGIN 1a,2b:d=0 

IF ct="sauve “ THEN GOTO 3370 

ÎF cé="charge * THEN GOTO 2519 

GOTO 1090 

i$(pi=cé 

IF c$="oublier " THEN RUN 

PRINT CHR$(IL)CHRS Ip" "'i$(p} PRINT SFC(7 


me CN fe Can PS vus CDI D CU DE 


AO ue pe pt ee put mes 
D CC D I D D © © ED 


I Gr 
1, 


D D er CD D D CD D € OO CO CO —> 


pen bee pot 


8 
9 


FOHÉREREEERORDRESEEECELETX 


 LEFT$ (c$,2)="1 "THEN GCOSUB 1210 
ct="i * THEN GOSUB 1350 

c$="d * THEN COSUR 1450 

ct="e " THEN COTO 800 

ci="g " THEN END 

£ " THEN COTO 2190 

Ci="h THEN SOSUE 29840: COTC 930 
F en {ct,3)="var" THEN COSUB 153 
tai 1 THEN ( GOTO 980 


ÉXÉPEEEEILISTENEEETELEE 


1300 PRINT n':IF n<10 THEN PRINT" “'ifin) ELSE PRI 
Re 

pe ñ 

1329 t=i 

1330 LOCATE 1,24 

1340 RETURN 

1350 ‘ 

1360 ! HXYÉERENEINGERTIONEEXEEEEET 
1370 

1390 t=i 

1390 FOR n=99 TO p STEP - 

1400 ifin+i)i=if(n) 

1410 NEXT n 

1429 i$(pi="à" 

1430 c$="1 "+STR$ (p)'COSUR 1240 
1440 RETURN 

1450 ‘ 

1460 ‘ XYXEXLAXIDELETEREENEEEEX 
1470 

1480 FOR n=p TO 99 

1490 iftn)=itin+i):NEXT à 

1500 i$(100)=" " 

1510 c$="1 "4STR$ (p)l'GCSUB 1240 
1520 RETURN 


1530 ‘ 

1540 * XÉFEREEEAVARTABLESTEEEEEENT 
1559 ? 

1560 CLS 


1970 PRINT "vi"'MIDé(c$,7,1): "= vEVAL CHIDS (cS, 
7, 1))):t=1 "RETURN 


1580 

1590 ASPIRE 

1800 

1810 CLS: PRINT “lnstr PRI 
ligne "'co:FOR pa=! ga! 


{cs} :GOTO 390 
1620 ? 
1630 ‘ YÉÉEEEEFANCLESEEEENEEE 


1690 ‘ KÉLEEEEFECERCLEREXELEEEX 

1700 ’ 

17i0 IF MID$(c$,8,1)="v" THEN 177 

1720 r=VAL(MID#(c$,8)) 

1720 FOR i=0 TO 360 

1740 PLOT riSIN(i),r*#006(i),coul 

1750 NEXT Î 

1740 RETURN 

1770 r=v{VAL(MID#(c$,10,1))) 

1780 GCOTO 1730 

1790 ‘ 

1809 ‘ XAHHHPEPFECOMMANDERHELENERE 

1819 ? 

1820 INK i,0:PEN 1:LOCATE 1,25: INPUT'COMMANDE -- 
",rep#t:c$=LOWER${rep#) 

1830 IF c$="e" THEN COSUE 2280:C0T0 80 
1840 IF LEFT$(c$,1)="I"THEN c$=cts" * 

OTO 1080 

1850 IF c$="g" THEN GOSUR 2280 :END 
1860 LOCATE !,25:PRINT SPC(7B):COTO 1799 

1870 : 

1880 ‘ #EXEEFETEDIRECTION/ORICINEN#EEEREERT 

1890 

1900 IF MID#(C#,11,1)="y" THEN 1920 

1910 d=VAL (MID$ (ct,11)):RETURN 

1920 d=v{VAL(MID$(cé,13,1)3) RETURN 

1930 ‘ 

1940 IF MID${ct,9,1)="v" OR MID#(c$,13,1:="v" THEN 


=YAL (MID$ (c$,9,3)) 

=VAL {MID$ {ct,13,9)) 

IN ld;, ib: RETURN 

ÿ Ir XID${ cé, 9,{)="v" THEN IF MID$tc$,14 
a=viVAL (MIDS (ct,11,1))):2b=v{VAI 
} ELSE 1a=viVAL (MIDS (c$,i1,i}riizb=vVAl 
$,14,9)}) 

MIDt(c$,13,i)="v" THEN za=VAL (MID (ci,5, 
VAL (MID$ {c$, 15,1 1}}} 

Ÿ 1a,2H:RETURN 


2 EHEEEEENBORD/ENCRE/PAPIER STYLO HE 
(c8,6,1="v" THEN 298 

JAL(MIDS (C4, shiiR 
{VAL(IMIO$(c$,8 


L1))) RETURN 


(et,10,1)= 


MIS $ict,8 PTS" THEN ! 
gf:ag, VALOMIDE (CB 
Stage vIVALINIDS ECS 


IF MID$(c$,7,1)="v" THEN GOTO 219 
ofiag,VALIMID$(cé$,7)}:coul= 


1,80, 33,25 :PAPER ! 
Commande 52 Rte 


c$="efface" THEN PEN PAPER MODE 2':ÇOTO 


} LOGATE ! 1,10: INPUT'Entrez ‘se nom de voire prog 
dE : * ,noa$ 
H LOCATE ! 4 18: 'SRINT" Veui! 


lez patienter, 
PRINT'Sauvegarde en 


n cours... ":PRI 


} OPENOUT nont 
ue bezt T0 100 
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CLE:PRINT'CHARCEMENT DU PROGRAMME" 

DRINT" Serena ssas-s2-ces-cses 

LOCATE 1,19: INPÜT'Entrez le nos de votre prog 
8 : ",n08$ 

LOCATE L,18:PRINT" Veuillez 
PRINT"Chargen ieni JU prourafe 
PRINT BRINT 

OPENIN * 

FOR kcsi TO 100 

î eu i$(be) } 


gatienter,°" 
ge 


‘inomt' en cou 


np THEN bcz10i 


FXÉEREEEEXPRESENTATIONEREE EEE 

89 MODE G:INK 3,1,5:INK 1,1:INK 0,0:HORDER © 

70 ch$="AMSLOC" 

3700 CRIGIN 186,347:DRAUR 204,0,1 

27:09 DRAYR 0,-34:DRAUR -202,0:DRAUR 0,34 

2720 PEN 3 

2730 FOR i=i TO b 

2740 cdf=MID${ch$,1i,1! 

2750 LOCATE b+i,5:PRINT cd$ 

2760 SOUND !,89+1#10 

2770 FOR pa=t TO {90:NEXT pa,i 

2790 PEN ! 

2790 LOCATE 2,15:PRINT'Langage Graphique” 

2909 LOCATE i,17:PRINT'Etudié pour le D.A.0" 

2810 INK 2,3:PEN Z:LOCATE 2,20:PRINT CHR$(I64)4" © 

t&phane CLOIREC" 

2820 LOCATE 2,24:INK 4,S:PEN 4:PRINT'Instructions 
9/N)2" 

2839 rep$=INKEY$ :r$=LOVERS (rep$}:IF r$="n" THEN RE 

TURN: IF r$="9" THEN GCOTO 2880 

2840 IF r$="c* THEN GOTO 2860 

2830 GOTO 2330 

2860 HODE ! 

2970 INX i,it PEN 1 

2280 LOCATE S,L'PRINT ÉEEEHE AMGLOG: Instructions * 

FÉEX" 

3890 LOCATE 1,4:PRINT" Ce programme est une adap 

tation sim- -piifike du langage LOGO." 

3600 PRINTPRINT:FRINT" Il comporte deux: modes d 
iffèrents: - un aode direct ‘l'crdinate 

ur interprête imabd'atement les ordres que vous lu 

i fournisseil" 

su PRINT: PRINT" - un #ode programme (il 

tocke alors les instructions sous forme d'un lis 

Ling gour exkcution ultérieure)" 

2920 PRINT'PRINT:PRINT" Un &diteur de texte vous 
peraet ausside modifier vos programmes {supprimer 
etinsérer des lignes, lister, exkcuter...)* 

2930 LOCATE 1,24:PRINT “Tapez une touche" :LOCATE 3 

5:24: INK 2,1i,0:PEN 2: PRINT Pan? 

2940 r$=INKEYS: IF r$"# THEN GOTO 2980 

2950 GÜTO 2949 

2960 HODE L'PEN 1 

2970 PRINT * Voici la jiste des instructions!" 

3980 PRINT:PRINT:PRINT'H ‘affiche les instructions 
utilisables" PRINT'L :iiste les 22 preaieres lion 


LPRDRE) Le Le Jr1rJ 


es, L xiliste a partir de la ligne x.° 
2990 PRINT'I :insere un espace entre deux lignes e 
n  décalant la lere ligne du dernier listin 


a vers le bas." 

3090 PRINT'D supprime la ere ligne du dernier 
listing et reaonte toutes les autres d'une 

ligne. 

3919 PRINT'E ‘exkcute un programse.* 

3929 PRINT'"Q ‘quitte le prograsse." 

3039 PRINT'SAUVE :sauvegarde le prograame sur k7." 
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BRIAT'CHARCE lit un programme sur k7." 

GC BRINT'UBR V'x) affiche la valeur de la 
variable v(x}" 

G62 POINT'OUBLIER :perd le progrèane" 

CCATE 1,24 PRINT'Tapez une touche":LOCATE 35 

ÿ D'DORINT # 


NET IF r$<""THEN 3100 


PRINT" Mode progranme." 
PRINT'PRINT'"Y{x)2n : donne a la variable vx) 
la valeur n, 
3135 PRINT'OIRECTION n :la direction en cours 
devient n." 
3149 PRINT'ORIGINE nnn.nan: l'origine du graphisae 
est placke au coordon- 
-nkes nnn.nnn” 


3150 PRINT'EFFACE efface l'écran." 

3167 BRINT'ENCRE xx.nn :donne à l'encre xx la va- 
-leur nn, 

3170 FRINT'PAPIER xx ‘le papier prend la couleur d 

& i‘encre xx,° 

3:30 SRINT'STYLO xx le stylo prend la couleur de 


l'encre xx," 
3190 PRINT'AORD nn ‘le bord de l'&cran prend la 
couleur nn." 
3200 LOCATE 1,24:PRINT'Tapez une touche" :LOCATE 35 
.24:PEN 2:PRINT"-->" 
1216 p#=INKEYS IF r$€""THEN 3230 
32206 GOTC 3210 
CLS:PEN Î 
PRINT'AFPICHE EN nn.nn :&crit en nn.nn ce qui 
est affich& a la ligne 
suivante du prograame." 
3250 PRINT'LABEL n positionne un label (utilisk 
pour es sauts)" 
260 PRINT'SON :fait un son bref et aigu" 
270 FRINT'AVANCE x :avance de x pixels dans ja 
direction en cours." 
3280 PRINT'GAUCHE x :tourne a gauche de x degrés.” 
3290 PRINT'DROITE x :tourne a roite de x degrks." 
3390 PRINT'FIN :fin du prograane." 
19 PRINT'VA AU LABEL x :saute au label x." 
520 PRINT'ST Vix}i=9 VA AU LABEL x :saut au label 
si vix} &gale 0" 
à PRINT'LISTE x :liste le programme a partir de 
la ligne x," 
3340 PRINT'CALOUL DE Vix}=.., :vix) prend la valeu 
? de ce qui suit le 
signe êgal." 
3350 LOCATE 1,24:PRINT'Tapez une touche" :LOCATE 35 
> 24:PEN Z:PRINT"-- 
3360 r$=INKEYS:IF r$€)""THEN 3380 
3370 GOTO 3360 
3395 CLS:PEN 1 
PRINT'RECTANGLE xxx.xxx :trace un rectangle d 
cotks xxx et xxx. 
00 PRINT'CERCLE xxx trace un cercle de rayon xx 


Le] 
Le] 
Le] 


2410 PRINT PRINT:PRINT" Tous les tracks ont pour 
origine le dernier point inscrit. 
De plus,il est possible de paras&trertoutes 

les instructions avec les varia- -bles v(x)." 

3420 PRINT:PRINT:PRINT® Vous aller #aintenant po 
uvoir coamen--cer a prograsser en AMSLOG.Vous verr 
e1 qu'il est possible,avec de tres courts progran 
aes,de créer de superbes graphis--#es." 

3430 LOCATE !,25:PRINT "Tapez une touche" :LOCATE 2 
5329: PEN 2:PRINT *--}" 

34406 IF INKEYS"" THEN RETURN 
3450 GOTO 3440 


FU t Ver Te.) rt ei nf 
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150 F 


MULTIGESTIONS 195 F 
DE FICHIERS Toutes gestions, familiales-financières- 
200 fiches. 20 rubriques par fiche. bancaires sous forme de tableur électro- 
+ manuel. nique. 


| 


GESTION 


DE STOCKS F 


Utilitaire. Gère jusqu'à 700 articles. 


MUSICORE 195 F 


Votre clavier devient synthétiseur musical. 
2 notes simultanées. 


MULTICALC 

THOMSON TO7 - T07/70 - MOS 
co électronique. Disco-Graph-Hist- 
Calq. 


AMSTRAD 


GESTION DE FICHIERS 
GESTION D'ENTREPRISE 


GESTION DE STOCKS 


GRAPHICORE 
MULTICALC TO7/70 


COREPAINT 
ORIC-ATMOS 


CPGRAPH 
THOMSON 


GESTION F 
D'ENTREPRISE 


Utilitaire. Joumal des ventes, achats. 
Trésorerie (un programme pro). 


Utilitaire graphique pour la visualisation 
graphique des postes établis à partir de 
multigestion ou d'un autre programme. 


MHDE DMRINIEN HOUN LNSSCHNIT eue 


GRAPHICORE 


195 F 


COREPAINT 245 F 
Dessin assisté par ordinateur. Système de  D.A.O. avec gomme crayon. Axonométrie 
matrice avec loupe. et 3D. 


MULTICALC 
ORIC-ATMOS 190 F 


Tableur électronique. Tri-Hist-Stat-Calque. sd 


œ 
© 


ur ane 1964 


U_ MLTICALCE “France 


Disponible chez votre revendeur habituel ou par 
correspondance en retournant le bon ci-dessous à : 
CORE, 112 place des Miroirs, 91000 EVRY 


+ 30 F PORT 


+ 30 F CATALOGUE 


PAIEMENT : ©] À LA COMMANDE OC] CONTRE-REMBOURSEMENT 


POUR VOUS oce 


LES SYNTHETISEURS DE FRÉQUENCE 


Hichei LEVREL - F6DTA 125F 


COMMUNIQUEZ AVEC VOTRE ZX81 
2° ZDITION 
DENIS EONOMO à Eddy DUTERTRE 90F 


EXTENSIONS DU ZX 81 


collection poche E.DUTERTRE 48F 
COMMUNIQUEZ AVEC ORIC ET ATMOS 
Denise FONOMO & Eddy DUTERTRE 145 F 


PROGRAMMES POUR ORIC 
E.JACOE & J.FORTELLI 
NAVIGUEZ SUR ORIC ET ATMOS 
colisction poche E.JACOE & J.PORTELLI 45F 
APPRENEZ L'ELECTRONIQUE SUR 


ORIC ET ATMOS 
Pierre FEAUFILS 110F 


MIEUX PROGRAMMER SUR ORIC 
ET ATMOS 


Hichel ARCHSMBATILT 110F 
JOUEZ AVEC HECTOR 
2° édition - Eddy DUTERTRE 43F 
JOUEZ AVEC AQUARIUS 
collection, poche - L.GENTY 45F 


LES MYSTERES D'ALICE OU LA PRATIQUE 
DU 6603 « 


Une des meilleures critiques de 13 presse professionnel} Y "1 


Aisin BONNEAUD 1% 
ee 
LES MYSTERES DU LASER W 


Denis EOURQUIN 148 


EN PREPARATION SORTIE EN JUIN 


mn 


? 
MIEUX PROGRSMMER SUR AMSTRAD A 
Michel ARCHAMBAULT 85F re 
PLUS LOIN AVEC LE #07 
Michel GANTIER 357 ÈS 
APPRENEZ L'ELECTRONIQUE SUR MSX af 


Pierre FEATFILS 95r Elle gr 
APPRENEZ L'ELECTRONIQUE SUR AMSTRAD ri ; ré 
Pierre BEAUFILS GSE © Re s ” 
EN 4 


D4Â 


À # ° è 


#? 


MLRU BUREAUTUE 2 


PRESENTE L’AMSTRAD CPC 664 
QUALITE PRO? 


CRAYON OPTIQUE 
UTILISE LE PROCESSEUR GRAPHIQUE DE L' AMSTRAD 
RESOLUTION EGALE AU NOMBRE DE CARACTERES 


400 TTC 


MODEM 
_- 75 —1200 Bauds , full duplex , à numérotation 
automatique 
—1200 1200 Bauds Half duplex 
-Connectable directement sur le bus de l'Amstrad 
et sur la ligne PTT par fiches gigognes 
RS232 E/S incorporee 


OPTION: Haute resolution 


Dessin direct sur écran 


(Fabrication Micro Bureautique 92) 


1200f TTC 
(Fabrication Micro Bureautique 92) 


DOUBLEUR 
DE 

JOYSTICKS 

250 TTC 


(Fabrication Micro 
Bureautique 92) 


Le d 
Pour 8480" rrc 


NOUVEAUX LOGICIELS 
Utilitaires de gestion 
MULTIGESTION 

Gestion familiale sur 12 mois 


GESTION de FICHIERS Q] [A] 


DOMESTIQUES 
Jeux et simulation 
PILOTE DE CHASSE 


INTERDICTOR PILOTE 
AIR TRAFIC CONTROL 


WORDSTAR 
Me ro Pr 

- MAILMERGE 
M ro Pr 


INFOSTAR 


20 critères de tri par enregistrement MIDWAY 

240 car. par fiche FOOTBALL SUPERSORT 
C.P. GRAPH Q] STRIP POKER Lost 
Utilitaire permettant d'effectuer des BRIDGE + CALCSTAR 
statistiques en courbes .histogrammes,ect DEFEND OR DIE 


DE LA TERRE À LA LUNE 
Environ 200 jeux 

Dans AMSCLUB . Presentation 

de tous les logiciels actuellement 


prestige ju 


COMPTA 
GENERALE 
MB 92 


TRAITEMENT de TEXTE PRO Q] (X| 
TABLEUR 


INITIATION C] [| G ea 


GESTION de STOCK 
700 Ref.Qu.Pa.Pv. Marge - Inventaire 
GESTION BANCAIRE 

Gestion complete d'un comple bancaire 

avec notion de vir. traites ect 

GESTION COMPTABLE SIMPLIFIEE QC] Es 
Tenue des differentes écriture avec 


- TENUE DE 
STOCK 
WE 97 


- PAYE 


imputation comptable et sortie des 
journaux correspondants 

FACTURATION Q Es 

Edition facture avec en tin de journée 

le journal des ventes ventilé 

LOGICIEL d'AIDE AUDITIVE POUR NON VOYANT (En cours.) 
Permet de reconnaitre les touches du 


clavier avec répétition des lettres mots (Q) [x] 


lignes enregistrées 


CPC 


CLUB AMSTRAD Ses 


cro b | 
D re autique | 
en | 
out orme {| 
= ET 
Le — 


VENTE DIRECTE ET PAR DISTRIBUTEURS 
SUR TOUTE LA FRANCE - CRÉDIT CETELEM 


Utilise deux ports pour avoir 160 / 200 points 


FACTURATION B livraison. Factures (50 modeles dif.) 
M 


SrNTHETISEUR VOCAL 
_— Programmable directement en basic à l'aide d'une 
chaine de DATA . 
_— L'utilisation de 64 phonèmes permet de le faire 
parler toutes les langues avec un vocabulaire illimité 
_— En cours Programme d'aide pour non voyant 
550! TTC 


(Fabrication Micro Bureautique 92) 


PROLONGATEUR 
+ 
PERITEL INCORPOREE 
+ 


PRISE ECRAN VIDEO 
3 ECRANS EN UN 
250' TTC 
(Fabrication Micro Bureautique 92) 


Avec lecteur disquettes 3” integre 
1DRIVE 3", 1Mega Octets 


LES LOGICIELS PRO. 


Systeme de traitement de texte spécialement 
etudie pour les non informaticiens 

Option de WORDSTAR Outil de fusion de 
fichiers 


Systeme de gestion de base de donnees . 
à la portée de tous 

Systeme de TRI. Fusion et selection de 
donnees. 

Tableur . Permet d établir des relations 
arithmetiques mathematiques et financieres. 
Nouveau plan comptable 


Journal des ventes Stat Familles de produits 


Options de la Facturation avec etat d'inventaire 
Standard avec DAS 


MILRU BUREAUTIQUE 52 
67, boulevard Galieni 92130 ISSY-LES-MOULINEAUX 


ZSS (1)642.4210  Télex MIBURO 200838 F 
MLRU QUREAUTIQUE 92 
13, boulevard de la République 92250 LA GARENNE-COLOMBES 
ZS  (1)784.21.77 


MILRU BUREAUTIQUE 92 ANTILLES 
Patio de CLUNY. 1er étage 97233 SCHOELCHER 


TS 60.53.83 FDF. 


20, rue de Montreuil 94300 VINCENNES -— Tél. : (1) 328.22.06 
OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 het de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19h 


REVENDEUR OFFICIEL AMSTRAD FRANCE 


CPC 664 
[] avec moniteur couleur 


DD 


000000000099 LOGICIELS CASSETTE eos 


LOGICIELS SUR DISQUETTES 
O file (français). ....................... 345F [] calc (français). ....................... 
© bank (français). . 345F O graph (français). : 
électro freddy. . en .. 149F [ snooker ........ 
C1 roland in time. ................ 149 F roland ah 5252255 ééssenecneges 
roland on the sun.............. 149F hunter Rillot. is sseseeniées 
El amanolf ss needs 149 F UTILITAIRES i C2 
Rallonge bus souple. .................. 185 F hunchback .................. 149 F entrepreneur (anglais) ls 
é roland on the ropes. ............ 149F decision maker......... 
O1 housse pour moniteur et U.C........... 150 F C1 roland in the caves... 149F Cmasterile | 
harrier attack..5:.sat4istemeue 149 F project planner. ........ 
© roland goes digging. .................. 149F C] microscript ........... 
C1 code name mat... 149 F microspread .......... 
puncky ....... 149F ©] DDI - firmware. ........ 
Rallonge Joystick master chess.. 149 F micropen ............. 
“Éclatez” vous sans rien arracher ! SPANNETIMAN be dunes s mu diadts oaoruie 148 F7 [l'stanmatcher:. surdité 
rallonge joystick 1,20 m............... 120 F LIVRES ET REVUES 


AMSTRAD CPC 464 explored. .......... 100 F 102 prog. pour AMSTRAD ................ 120 
AMSTRAD 56 programmes. ù 
jeux d'actions. .......... 


super-jeux Amstrad 
programmé en ass. sur Amstrad. 


(mi 


Magnétophone AMSTRAD ouvre-toi la bible du CPC464 ges … 

C étoph éciall t l Lilo © méthode pratique (PS. ses 

Re RE Vie Re: psg gere D programmes basic CPC 464. AMSTRAD en famille .................... 120 GRAPHISCOP : NOUVEAU 
Entrée DIN ou Jack. Niveau règlable. Témoin C basic au bout des doigts... UES 


© trucs et astuces pour CPC 464.......... AMSTRAD user (avril-mai-juin) le n°... 12F 
Possibilités de crédit partiel ou total 


dessiner, copier... de véritables chefs d'œuvre. 


sonore et lumineux. Alimentation intégrée GRAPHISCOP 1490 F 


magnétophone ..................... 495F 


l Grâce à cette table graphique vous pourrez f 


L1 L 
= CJ ghost husteri:tss dre smsmeceemiarteses 140F [roland digging........................... 100F e 
e DCandroïd.................5.. .120 : Shmer lasceaux ...100Fe 
Ge F e Cbattle for modway (notice fr. . .145 roland oubliettes . .100Fe 
8 bits interface printer Mis Se © Ckarl's treasure hunt ......... . 90F  Orolandonthe run ...100F ° 
Re SR men Dee CIE Dee em de 
# Cflight path 737. :100F  Ctechnician ted | ‘1007 * (7 2ème lecteur de disquettes..…........ 187 
4 e Ustrip poker... .120F CO world war 3. .. 95Fe 
e Cpyjamarama. .100F monopolic............... …115F° 
° Cgalaxia . 95F  Dbidget fam. (éd. SPRITES) 120F* 
e atom smasher .100F plat. réess dors dau .100Fe 
e []manic miner..... .100F  [] carnet adresse (éd. SPRITES) ...120F e 
e Ujet set willy .100F  C meurtre grande vitesse ....... ...180F + 
, : , ® Cdark star .100F Ocoloric .............. .105F° 
Rallonge alimentation + vidéo * O3 D monster.… .100F  Usérie noire .120F$ 
© ne soyez plus collé à l'écran, rallonge... 130F * Cimasterchess.…. .100F  Cfruit machine .100Fe 
e [code name mat .100F Cdetective .100Fe 
O1 Adaptateur péritel. .................. 390 F + C]football manager. .110F OC. graph .150Fe 
® Chouse of usher.… .100F  Csultan's maze....... .100F° 
ë hunter killer ......... .100F  Cgestion entreprise .. . 245F « 
f ° jack and the beanstalk ..115F  Ogestion stock ....... ...245Fe 
e ring of darkness ..... ..155F Ufacturation…. .245Fe 
e [special operations . ..100F Cmusicore .195Fe n à AMSTÉAD 44 F 
à ° SOICOTV EL Gars ..140F  Ckong .............. .120F° Joystick AMSTRAD. ................. 
Synthétiseur vocal AMSTRAD ns + Dainrs sise ..100F  Cthomson decathlon …120F% 
Enfin votre AMSTRAD peut s'exprimer! Anglais d'ori- * C]star commando … ..100F Orallyll............. ...180Fe \ 
gine il gardera son accent mais, grâce à un programme + amlettres .............. ..149F kikekankoï . 160Fe 
basic, vous dira “bonjour”, “gagné” ou vous apprendra + [] animal, vegetal, mineral. ..100F easy graph. .175F° 
l'anglais ou l'allemand. . Ê blagger ins s. . Ë a easy La ÿs .175FÈ 
(e étiseur vocal. ................... ridge-it Fe SRey-Dank; 175F 
ner lis W6F © Coodenamem 100F Deasy file. 175F 
Câble imprimante AMSTRAD e Dcoloric ........... PR. | le millionnaire . . .140F e Joystick TIRVITT } 
Vous permet de connecter votre AMSTRAD à n'im-  * classic adventure . ……..100F mission delta .… 120F + Le “MUST” en matière de joystick! 8 directions, 
porte quelle imprimante au standard “centronic” - defend or die ........... ..120F micro-sapiens ...... 140F ad contact par micro-contact, robuste, élégant, précis, 
À câble imprimante 150F + devpac de dessas, mon) re De bumper .… F4 .. e il ne vous décevra pas, garanti 1 an, compatible 
es easy amscalc............. FE cobre. ins 53 
: ” s CIER' BERT …… 221007 Dpinball | ao 14 F 
RS EET ee e  Ciharrier attack 100F  Ccombat iynx. 120F + Lis Een 
St 1 ° Cfred electronicien .… ….100F DAO. :.:…. 120F° 
HG: 2 Ofruity frank ….100F [knight booster .… 120F° 
c . gestion fichier (éd. CORE) ..150F la ville infernale ...120F ee 
E/S - e: Lo ssnersns ses ...100F MA. base. ....... ...165F e 
Carte E/ . e Cinitiat. basic vol. 1 (français) . ….155F  Cinitiat. ass. Z80. ...149F + 
Vous permet de commander moteur, relais, lampe, + Cjinitiat. basic vol. 2 (anglais) ….155F Ominfile .149F * 
sonnerie, projecteur e hisoft pascal ........... Fe .…. 390 F salut l'artiste .…. .…185F ë 
[ carte 8 E/S......................... 395F  , CJhouse of usher ..100F [mission detector … 120Fe 
. hunchback ..… 100 F the hobbit (livre fr. 220Fe Mannesmann MT 80S 
cr . haunted edges ...100F starstrike .......... 140Fe L'imprimante “top niveau” en informatique fa- 
| [ l e le géographe ........ ...100F le bagne de népharia ...140F * miliale 100 caractères par seconde. Papier 
LOC es ®_ O'envahisseurs de l'au-del ...100F knight lore ......... ...150F e normal ou informatique. Entraînement par 
bu  Dlettres magiques ....…. ..100F O3 D fight... 14F, friction ou traction. Si vous recherchez une 
Carte E/A AMSTRAD . wongs loopy laundry … .…..100F Calien 8................... . 14Fe qualité “courrier”, la MT 80S vous donnera 
Pour transformer votre AMSTRAD en centrale de me- e _[ muitigestion (éd. CORE) .…..195F © mission detector. ........... . 120F°* plus que des satisfactions tant pour le texte 
sures. Possibilité de brancher plusieurs cartes 9 Cuombres magiques … 1007 © survivor …............... . 105F 4 que pour le graphisme. 
Cicané 8 E/A 2: 8 eme a 3 = Sr pres rte 55 vebs ue CO) gilligan's gold... °100F° Mannesmann MT 80S ......... 3950 F 
; ®_ Corolend ahoy 2. 100F © Star commando …....... - 100: 
D support moniteur. . : C1 K7 de réglage magnéto. ................ 130F , O disquettes vierges 3”................ 60 F 
L2 
. . 
. : 
: : 
L] L] 
L L 
L] L] 
. L] 
L L2 
L . 
e L 1 
L1 L] 
L L2 
Ü L1 
+ L 
L1 L 
L1 
. . 
L2 L1 
L L1 
L1 L1 
L 1 L] 
L 1 L1 
L L 
L1 L 
. L 
L L 
e. e. 
L 1 L] 
L1 e 
. . 
L 1 L] 
L1 L] 
De 


NOM PRÉNOM ___ ORDINATEURCICPC464 couleur [JCPC464 monochrome []CPC664 couleur []CPC464 monochrome 


ADRESSE TÉL. __________ CODE POSTAL VILLE 
Mode de paiement : [] chèque / [] mandat / [] contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 


réseau 


Tous nos prix sont indicatifs 


présente 


sur Amstrad 


AA Macro-instructions 
type Pascal 


LL RS Includes sur cassette 
IE : LÀ Assemblage conditionnel 
-Livre avec un manuel de 120 
pages 

-Disponible sur cassette et 
disquette 


HICROPUCE 


1,Rue du Plat 59000 LILLE 
tel (20) 300560 


87,Bd de Valmuy 59650 


: | Villeneuve d'Ascq 
Exclusivement disponible chez les bons revendeurs au prix tél (20) 471857 


conseillé de 205 FF. 
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14 LE FLIPPER 
LE THRILLER 


Saluëés par toute La presse spécialisée comme 
étant, chacun dans son genre, des réussites 
exceptionnelles, COBRA PINBALL et MEURTRE A 
GRANDE VITESSE sont devenus en quelques mois 
de véritables classiques pour AMSTRAD ! 


COBRA PINBALL 


vu Ce logiciel de flipper est certainement l'un des meilleurs 
UN 9 ja Li 7 Rn sur micro-ordinateur, appelé à devenir un classique. Le 
(7 N= JTE QUES à * re déplacement et les effets de la bille y sont d'un réalis- 

(TL LL LLLELT ER me saisissant. Tout est permis au joueur : fourchettes, 

i F amortis. et même un vrai massage... Le plateau de 

jeu est vraiment celui représenté sur la jaquette. Tout 

y est : extra-ball, spécial, loterie, éibles, couloirs, tour- 

niquet… Il faut même mettre des pièces de monnaie 

pour jouer. Animations graphiques et sonores ne sont 

pas en reste. 30 Ko de langage machine permettent 

ce résultat exceptionnel. 


Enfin, le joueur peut modifier lui-même les paramètres 
du jeu (vitesse, rebond, gravité, sensibilité au tilt, etc.). 
On peut ainsi adapter le jeu à sa force et en renouveler 
continuellement l'intérêt. 


Prix indicatif : 140 F 


MEURTRE A GRANDE VITESSE 


Agatha Christie a immortalisé l'Orient-Express… C'est 
à nouveau un train extraordinaire, le TGV, qui sert de 
décor à ce nouveau type de logiciel. Au-delà du jeu 
d'aventure, il s'agit d'élucider une énigme policière. 
Tous les éléments sont "à portée de la main" : photos, 
témoignages, extraits de journaux, etc... Le joueur peut 
se déplacer dans le train, fouiller, lire, regarder, inter- 
roger et même utiliser un Minitel et un micro-ordina- 
teur portable. Enfin 13 véritables indices sont joints à 
la cassette (lettres, papiers, objets divers). 


Un jeu qui fait appel à votre intelligence et à votre 
astuce, pas un casse-tête de vocabulaire. 


"Meurtre à grande vitesse" renouvelle complètement le 
jeu sur micro-ordinateur. se 


Prix indicatif : 180 F 


Pour satisfaire Les passionnés d'AMSTRAD 464 et 664, COBRA SOFT présente une gamme 
complète de Logiciels français. 

Tous Les domaines de £a micno-infonmatique sont couverts : jeux d'arcade, d'aventure, 
de néglexion, Logiciels éducatifs et utilitaires. 

Voyez notre catalogue complet en pages intérieures. Programmeurs, contactez-nous ! 
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